home *** CD-ROM | disk | FTP | other *** search
/ Aminet 6 / Aminet 6 - June 1995.iso / Aminet / misc / emu / ST4Amiga.lha / ST / emu.asm < prev    next >
Encoding:
Assembly Source File  |  1995-04-04  |  41.7 KB  |  2,804 lines
  1.  
  2. dsksync    EQU    $7E
  3. bltbpth    EQU    $4C
  4. bpl2pth    EQU    $E4
  5. bpl2ptl    EQU    $E6
  6. bpl3pth    EQU    $E8
  7. potgo    EQU    $34
  8. adkcon    EQU    $9E
  9. bpl3ptl    EQU    $EA
  10. color0    EQU    $180
  11. color1    EQU    $182
  12. color2    EQU    $184
  13. color3    EQU    $186
  14. _custom    EQU    $DFF000
  15. ddfstop    EQU    $94
  16. bltapth    EQU    $50
  17. bltcon0    EQU    $40
  18. bpl1pth    EQU    $E0
  19. bltcon1    EQU    $42
  20. diwstrt    EQU    $8E
  21. intreq    EQU    $9C
  22. bplcon0    EQU    $100
  23. bplcon1    EQU    $102
  24. bpl1ptl    EQU    $E2
  25. foreground    EQU    $888
  26. cop1lcl    EQU    $82
  27. dskpth    EQU    $20
  28. cop1lch    EQU    $80
  29. diwstop    EQU    $90
  30. ddfstrt    EQU    $92
  31. bltdpth    EQU    $54
  32. bpl4pth    EQU    $EC
  33. bpl4ptl    EQU    $EE
  34. intena    EQU    $9A
  35. bltafwm    EQU    $44
  36. joy0dat    EQU    $A
  37. intreqr    EQU    $1E
  38. tv_Lev4IntVect    EQU    $70
  39. bltbmod    EQU    $62
  40. bpl2mod    EQU    $10A
  41. potinp    EQU    $16
  42. bltamod    EQU    $64
  43. bpl1mod    EQU    $108
  44. vhposr    EQU    $6
  45. bltalwm    EQU    $46
  46. dmacon    EQU    $96
  47. bltcdat    EQU    $70
  48. tv_PrivilegeViolation    EQU    $20
  49. dsklen    EQU    $24
  50. MEMF_CHIP    EQU    $2
  51. MemList    EQU    $142
  52. bltsize    EQU    $58
  53. MaxExtMem    EQU    $4E
  54. bltdmod    EQU    $66
  55. **********************************************************************
  56.     org    emu
  57. lbC000000    BRA    lbC0000BA
  58.  
  59.     LEA    $78000,A0
  60.     MOVE.L    #$1FFF,D0
  61. lbC000010    CLR.L    (A0)+
  62.     DBRA    D0,lbC000010
  63.  
  64.     MOVE.B    #2,$78260
  65.     MOVE.B    #0,$7FA01
  66.     LEA    $3FF00,A0
  67.     MOVEQ    #$7F,D0
  68. lbC00002E    CLR.W    (A0)+
  69.     DBRA    D0,lbC00002E
  70.  
  71.     MOVE.B    #0,$7FC21
  72.     MOVE.B    #0,$7FC23
  73.     MOVE.B    #9,$7FC25
  74.     MOVE.B    #3,$7FC27
  75.     MOVE.B    #5,$7FC29
  76.     MOVE.B    #1,$7FC2B
  77.     MOVE.B    #6,$7FC2F
  78.     MOVE.B    #1,$7FC31
  79.     MOVE.B    #6,$7FC33
  80.     MOVE.B    #0,$7FC35
  81.     MOVE.B    #10,$7FC37
  82.     MOVE.B    #0,$7FC39
  83.     LEA    CODXOFTHEBRAI.MSG,A0
  84.     MOVE.L    0.w,D0
  85.     CMP.L    (A0),D0
  86.     BNE    Deadend
  87.     LEA    $40000,A0
  88.     LEA    lbC000000,A1
  89. lbC0000B0    MOVE.L    A0,D0
  90.     EOR.L    D0,(A0)+
  91.     CMP.L    A0,A1
  92.     BNE    lbC0000B0
  93. lbC0000BA    CLR.B    $3FF3A
  94.     MOVE.W    #0,D0
  95.     BSR    lbC00064E
  96.     LEA    _custom,A0
  97.     MOVE.W    #$7FF,dmacon(A0)
  98.     MOVE.W    #$7FFF,intena(A0)
  99.     MOVE.W    #$3FFF,intreq(A0)
  100.     MOVE.L    #lbC0000EA,tv_PrivilegeViolation
  101. lbC0000EA    MOVE    #$2700,SR
  102.     NOP
  103.     NOP
  104.     NOP
  105.     NOP
  106.     NOP
  107.     NOP
  108.     NOP
  109.     NOP
  110.     NOP
  111.     NOP
  112.     NOP
  113.     NOP
  114.     NOP
  115.     NOP
  116.     MOVE.W    #$FFFF,$73FF0
  117.     CLR.W    $3FF0A
  118.     MOVE.L    #FLOPRD,$4100C
  119. lbC000122    SUB.L    A5,A5
  120.     CMP.L    #$31415926,$426(A5)
  121.     BNE.S    lbC000146
  122.     MOVE.L    $42A(A5),D0
  123.     TST.B    $42A(A5)
  124.     BNE.S    lbC000146
  125.     BTST    #0,D0
  126.     BNE.S    lbC000146
  127.     MOVE.L    D0,A0
  128.     LEA    lbC000122(PC),A6
  129.     JMP    (A0)
  130.  
  131. lbC000146    MOVE.W    #7,$484
  132.     MOVE.W    #$F02,$E82
  133.     MOVE.B    #1,$78201
  134.     MOVE.B    #0,$78203
  135.     TST.L    $3FF00
  136.     BNE    lbC000276
  137.     MOVE.L    4,A6
  138.     MOVE.L    MemList(A6),A6
  139. lbC00017A    BTST    #MEMF_CHIP,15(A6)
  140.     BEQ.S    lbC0001AE
  141.     CMP.L    #$C00000,$14(A6)
  142.     BGE.S    lbC0001AE
  143.     MOVE.L    $14(A6),D0
  144.     AND.L    #$FFFF0000,D0
  145.     MOVE.L    D0,$3FF00
  146.     MOVE.L    $18(A6),D0
  147.     MOVE.L    D0,$3FF04
  148.     BSR    lbC000256
  149.     BRA    lbC000276
  150.  
  151. lbC0001AE    TST.L    (A6)
  152.     MOVE.L    0(A6),A6
  153.     BNE.S    lbC00017A
  154.     MOVE.L    4,A6
  155.     TST.L    MaxExtMem(A6)
  156.     BEQ.S    lbC0001FA
  157.     MOVE.L    MaxExtMem(A6),A6
  158.     MOVE.L    #$C00000,$3FF00
  159.     MOVE.L    A6,$3FF04
  160.     BRA    lbC000276
  161.  
  162. CODXOFTHEBRAI.MSG    dc.b    'CODX OF THE BRAINS HAS DONE IT !'
  163.  
  164. lbC0001FA    CLR.W    $FC0000
  165.     TST.W    $FC0000
  166.     BNE    lbC000226
  167.     MOVE.L    #$FC0000,$3FF00
  168.     MOVE.L    #$1000000,$3FF04
  169.     BSR    lbC000256
  170.     BRA    lbC000276
  171.  
  172. lbC000226    LEA    $80000,A0
  173.     CMP.L    #'CODX',(A0)
  174.     BEQ    lbC000252
  175.     MOVE.L    #$80000,$3FF00
  176.     MOVE.L    #$100000,$3FF04
  177.     BSR    lbC000256
  178.     BRA    lbC000276
  179.  
  180. lbC000252    BRA    Deadend
  181.  
  182. lbC000256    MOVE.L    $3FF00,A0
  183.     MOVE.L    #$1000,D0
  184. lbC000262    CLR.L    (A0)+
  185.     DBRA    D0,lbC000262
  186.  
  187.     RTS
  188.  
  189. Deadend    MOVE.W    _custom+vhposr,_custom+color0
  190.     BRA.S    Deadend
  191.  
  192. lbC000276    LEA    lbC000280(PC),A6
  193.     JMP    $40688
  194.  
  195. lbC000280    BEQ    lbC0002F6
  196.     SUB.L    A5,A5
  197.     MOVE.L    #$38000,A0
  198.     MOVE.L    #$28000,D4
  199.     MOVEQ    #0,D0
  200.     MOVEQ    #0,D1
  201.     MOVEQ    #0,D2
  202.     MOVEQ    #0,D3
  203. lbC00029A    MOVEM.L    D0-D3,-(A0)
  204.     MOVEM.L    D0-D3,-(A0)
  205.     MOVEM.L    D0-D3,-(A0)
  206.     MOVEM.L    D0-D3,-(A0)
  207.     CMP.L    D4,A0
  208.     BNE.S    lbC00029A
  209.     MOVE.L    #$18000,A0
  210.     MOVE.L    #$400,D4
  211.     MOVEQ    #0,D0
  212.     MOVEQ    #0,D1
  213.     MOVEQ    #0,D2
  214.     MOVEQ    #0,D3
  215. lbC0002C2    MOVEM.L    D0-D3,-(A0)
  216.     MOVEM.L    D0-D3,-(A0)
  217.     MOVEM.L    D0-D3,-(A0)
  218.     MOVEM.L    D0-D3,-(A0)
  219.     CMP.L    D4,A0
  220.     BNE.S    lbC0002C2
  221.     MOVE.L    $3FF04,$42E(A5)
  222.     MOVE.L    #$752019F3,$420(A5)
  223.     MOVE.L    #$237698AA,$43A(A5)
  224.     MOVE.L    #$5555AAAA,$51A(A5)
  225. lbC0002F6    MOVE.L    #$30000,A0
  226.     MOVE.L    #$20000,D4
  227.     MOVEQ    #-$1,D0
  228. lbC000304    MOVE.L    D0,-(A0)
  229.     CMP.L    D4,A0
  230.     BNE.S    lbC000304
  231.     BSR    lbC000A0C
  232.     SUB.L    A5,A5
  233.     MOVE.L    #$980,A0
  234.     MOVE.L    #$10000,A1
  235.     MOVEQ    #0,D0
  236. lbC00031E    MOVE.W    D0,(A0)+
  237.     CMP.L    A0,A1
  238.     BNE.S    lbC00031E
  239.     MOVE.L    $42E,A0
  240.     SUB.L    #$8000,A0
  241.     CMP.B    #2,$78260
  242.     BLT.S    lbC000340
  243.     LEA    scr,A0
  244. lbC000340    MOVE.L    A0,$44E(A5)
  245.     MOVE.B    $44F(A5),$78201
  246.     MOVE.B    $450(A5),$78203
  247.     MOVE.W    #$7FF,D1
  248. lbC000358    MOVE.L    D0,(A0)+
  249.     MOVE.L    D0,(A0)+
  250.     MOVE.L    D0,(A0)+
  251.     MOVE.L    D0,(A0)+
  252.     DBRA    D1,lbC000358
  253.  
  254.     MOVE.W    #$FFF,D0
  255.     MOVE.L    $40014,A0
  256.     CMP.L    #$87654321,(A0)
  257.     BEQ.S    lbC00037C
  258.     LEA    $40008,A0
  259. lbC00037C    MOVE.L    4(A0),$4FA
  260.     MOVE.L    8(A0),$4FE
  261.     LEA    lbC0003A4(PC),A6
  262.     CMP.B    #1,$78260
  263.     BLT    lbC00068E
  264.     BEQ    lbC000704
  265.     BGT    lbC00076A
  266. lbC0003A4    MOVE.L    #$3FFB0,$80(A0)
  267.     TST.W    $88(A0)
  268. lbC0003B0    BSR    lbC000668
  269.     TST.W    4(A0)
  270.     BPL.S    lbC0003B0
  271.     MOVE.W    #$83C0,$96(A0)
  272.     MOVE.L    #lbC00111C,$46A(A5)
  273.     MOVE.L    #lbC001174,$476(A5)
  274.     MOVE.L    #$40FCA,$472(A5)
  275.     MOVE.L    #lbC001294,$47E(A5)
  276.     MOVE.L    #lbC0012C0,$47A(A5)
  277.     MOVE.L    #lbC000FC4,$506(A5)
  278.     MOVE.L    #lbC000F82,$50A(A5)
  279.     MOVE.L    #lbC001116,$50E(A5)
  280.     MOVE.L    #lbC001116,$512(A5)
  281.     MOVE.L    #$40D62,$502(A5)
  282.     MOVE.L    $3FF04,$436(A5)
  283.     MOVE.L    $3FF00,$432(A5)
  284.     LEA    $755A,SP
  285.     MOVE.W    #8,$454(A5)
  286.     ST     $444(A5)
  287.     MOVE.W    #3,$440(A5)
  288.     MOVE.L    #$16DA,$4C6(A5)
  289.     MOVE.W    #$FFFF,$4EE(A5)
  290.     MOVE.L    #$40000,$4F2(A5)
  291.     MOVE.L    #$93A,$4A2(A5)
  292.     MOVE.L    #$40670,$46E(A5)
  293.     MOVE.W    #$FFF,D0
  294.     JSR    $40EBA
  295.     LEA    $407CE,A3
  296.     LEA    $40670,A4
  297.     LEA    $40B50,A1
  298.     ADD.L    #$2000000,A1
  299.     LEA    8,A0
  300.     MOVE.W    #$3D,D0
  301. lbC000488    MOVE.L    A1,(A0)+
  302.     ADD.L    #$1000000,A1
  303.     DBRA    D0,lbC000488
  304.  
  305.     MOVE.L    A3,$14
  306.     MOVEQ    #6,D0
  307.     LEA    $64(A5),A1
  308. lbC0004A0    MOVE.L    #$407CE,(A1)+
  309.     DBRA    D0,lbC0004A0
  310.  
  311.     MOVE.L    #$406DE,$70(A5)
  312.     MOVE.L    #lbC00081A,$6C(A5)
  313.     MOVE.L    #lbC000ADE,$68
  314.     MOVE.W    #$C028,_custom+intena
  315.     MOVE.L    A3,$88(A5)
  316.     MOVE.L    #lbC000D6A,$B4(A5)
  317.     MOVE.L    #lbC000D62,$B8(A5)
  318.     MOVE.L    #$49F66,$28(A5)
  319.     MOVE.L    A4,$400(A5)
  320.     MOVE.L    #$407EE,$404(A5)
  321.     MOVE.L    A4,$408(A5)
  322.     LEA    $4CE(A5),A0
  323.     MOVE.L    A0,$456(A5)
  324.     MOVE.W    #7,D0
  325. lbC000504    CLR.L    (A0)+
  326.     DBRA    D0,lbC000504
  327.  
  328.     LEA    $409AE,A0
  329.     MOVE.W    #$51E,A1
  330.     MOVEQ    #$1F,D0
  331. lbC000516    MOVE.L    (A0)+,(A1)+
  332.     DBRA    D0,lbC000516
  333.  
  334.     MOVE.B    $7FA01,D0
  335.     MOVE.W    D0,-(SP)
  336.     JSR    $42408
  337.     MOVE.W    (SP)+,D0
  338.     MOVE.B    D0,$7FA01
  339.     MOVE.L    #$7FFF,D0
  340. lbC000538    JSR    $40556
  341.     DBRA    D0,lbC000538
  342.  
  343.     MOVE.W    #$CCC,D0
  344.     LEA    lbC00054A(PC),A6
  345. lbC00054A    MOVE.B    $78260,$44C
  346.     MOVEQ    #0,D0
  347.     JSR    $4A9F8
  348.     JSR    $4A96E
  349.     MOVE.L    #lbC0000BA,$46E(A5)
  350.     MOVE.W    #1,$452
  351.     MOVE    #$2100,SR
  352.     MOVE.W    #$999,D0
  353.     JSR    $44AF8
  354.     MOVE.W    $4001E,$8840
  355.     JSR    $44C42
  356.     JSR    $4053C
  357.     JSR    $40E56
  358.     TST.W    $482
  359.     BEQ.S    lbC0005C2
  360.     JSR    $40C4A
  361.     PEA    $40538
  362.     PEA    $40538
  363.     PEA    $40524
  364.     CLR.W    -(SP)
  365.     BRA    lbC000636
  366.  
  367. lbC0005C2    JSR    $40C4A
  368.     MOVE.W    #$666,D0
  369.     MOVE.L    #$40000,$4F2
  370.     LEA    $40518,A0
  371.     MOVE.L    #$840,A1
  372. lbC0005E2    CMP.B    #$23,(A0)
  373.     BNE.S    lbC0005EA
  374.     MOVE.L    A1,A2
  375. lbC0005EA    MOVE.B    (A0)+,(A1)+
  376.     BPL.S    lbC0005E2
  377.     MOVE.B    $446,D0
  378.     ADD.B    #$41,D0
  379.     MOVE.B    D0,(A2)
  380.     PEA    $840
  381.     PEA    $40538
  382.     PEA    $40538
  383.     MOVE.W    #5,-(SP)
  384.     MOVE.W    #$4B,-(SP)
  385.     TRAP    #1
  386.     ADD.W    #14,SP
  387.     MOVE.L    D0,A0
  388.     MOVE.L    $4FE,8(A0)
  389.     PEA    $840
  390.     MOVE.L    A0,-(SP)
  391.     PEA    $40538
  392.     MOVE.W    #4,-(SP)
  393. lbC000636    MOVE.W    #$4B,-(SP)
  394.     TRAP    #1
  395.     ADD.W    #14,SP
  396.     MOVEQ    #3,D7
  397.     JSR    $40BAC
  398.     JMP    lbC0000BA
  399.  
  400. lbC00064E    MOVE.W    D0,_custom+color0
  401.     MOVE.W    D0,_custom+color1
  402.     MOVE.W    D0,_custom+color2
  403.     MOVE.W    D0,_custom+color3
  404.     RTS
  405.  
  406. lbC000668    MOVE.W    $1E(A0),D0
  407.     BTST    #5,D0
  408.     BEQ.S    lbC000668
  409.     MOVE.W    D0,$9C(A0)
  410.     RTS
  411.  
  412. lbC000678    BTST    #6,$BFE001
  413.     BNE.S    lbC000678
  414. lbC000682    BTST    #6,$BFE001
  415.     BEQ.S    lbC000682
  416.     RTS
  417.  
  418. lbC00068E    LEA    _custom,A0
  419.     MOVE.W    #$4200,bplcon0(A0)
  420.     MOVE.W    #0,bplcon1(A0)
  421.     MOVE.W    #0,bpl1mod(A0)
  422.     MOVE.W    #0,bpl2mod(A0)
  423.     MOVE.W    #$38,ddfstrt(A0)
  424.     MOVE.W    #$D0,ddfstop(A0)
  425.     MOVE.W    #$2C81,diwstrt(A0)
  426.     MOVE.W    #$F4C1,diwstop(A0)
  427.     MOVE.W    #$222,color1(A0)
  428.     LEA    lbW0006E0,A1
  429.     LEA    $3FFB0,A2
  430.     MOVEQ    #$11,D0
  431. lbC0006D8    MOVE.W    (A1)+,(A2)+
  432.     DBRA    D0,lbC0006D8
  433.  
  434.     JMP    (A6)
  435.  
  436. lbW0006E0    dc.w    bpl1pth
  437.     dc.w    3
  438.     dc.w    bpl1ptl
  439.     dc.w    0
  440.     dc.w    bpl2pth
  441.     dc.w    3
  442.     dc.w    bpl2ptl
  443.     dc.w    $2000
  444.     dc.w    bpl3pth
  445.     dc.w    3
  446.     dc.w    bpl3ptl
  447.     dc.w    $4000
  448.     dc.w    bpl4pth
  449.     dc.w    3
  450.     dc.w    bpl4ptl
  451.     dc.w    $6000
  452.     dc.w    $FFFF
  453.     dc.w    $FFFE
  454.  
  455. lbC000704    LEA    _custom,A0
  456.     MOVE.W    #$A200,bplcon0(A0)
  457.     MOVE.W    #0,bplcon1(A0)
  458.     MOVE.W    #0,bpl1mod(A0)
  459.     MOVE.W    #0,bpl2mod(A0)
  460.     MOVE.W    #$3C,ddfstrt(A0)
  461.     MOVE.W    #$D4,ddfstop(A0)
  462.     MOVE.W    #$2C81,diwstrt(A0)
  463.     MOVE.W    #$F4C1,diwstop(A0)
  464.     MOVE.W    #$222,color1(A0)
  465.     LEA    lbW000756,A1
  466.     LEA    $3FFB0,A2
  467.     MOVEQ    #9,D0
  468. lbC00074E    MOVE.W    (A1)+,(A2)+
  469.     DBRA    D0,lbC00074E
  470.  
  471.     JMP    (A6)
  472.  
  473. lbW000756    dc.w    bpl1pth
  474.     dc.w    3
  475.     dc.w    bpl1ptl
  476.     dc.w    0
  477.     dc.w    bpl2pth
  478.     dc.w    3
  479.     dc.w    bpl2ptl
  480.     dc.w    $4000
  481.     dc.w    $FFFF
  482.     dc.w    $FFFE
  483.  
  484. lbC00076A    LEA    _custom,A0
  485.     MOVE.W    #$A204,bplcon0(A0)
  486.     MOVE.W    #0,bplcon1(A0)
  487.     MOVE.W    #$50,bpl1mod(A0)
  488.     MOVE.W    #$50,bpl2mod(A0)
  489.     MOVE.W    #$3C,ddfstrt(A0)
  490.     MOVE.W    #$D4,ddfstop(A0)
  491.     MOVE.W    #$3C81,diwstrt(A0)
  492.     MOVE.W    #$4C1,diwstop(A0)
  493.     MOVE.W    #0,color0(A0)
  494.     MOVE.W    #0,color1(A0)
  495.     MOVE.W    #foreground,color2(A0)
  496.     MOVE.W    #0,color3(A0)
  497.     LEA    lbW0007E2,A1
  498.     LEA    $3FFB0,A2
  499.     MOVEQ    #13,D0
  500. lbC0007C6    MOVE.W    (A1)+,(A2)+
  501.     DBRA    D0,lbC0007C6
  502.  
  503.     LEA    lbW0007FE,A1
  504.     LEA    $3FFD0,A2
  505.     MOVEQ    #13,D0
  506. lbC0007DA    MOVE.W    (A1)+,(A2)+
  507.     DBRA    D0,lbC0007DA
  508.  
  509.     JMP    (A6)
  510.  
  511. lbW0007E2    dc.w    bpl1pth
  512.     dc.w    3
  513.     dc.w    bpl1ptl
  514.     dc.w    0
  515.     dc.w    bpl2pth
  516.     dc.w    2
  517.     dc.w    bpl2ptl
  518.     dc.w    $8000
  519.     dc.w    cop1lch
  520.     dc.w    3
  521.     dc.w    cop1lcl
  522.     dc.w    $FFD0
  523.     dc.w    $FFFF
  524.     dc.w    $FFFE
  525. lbW0007FE    dc.w    bpl1pth
  526.     dc.w    3
  527.     dc.w    bpl1ptl
  528.     dc.w    $50
  529.     dc.w    bpl2pth
  530.     dc.w    2
  531.     dc.w    bpl2ptl
  532.     dc.w    $8050
  533.     dc.w    cop1lch
  534.     dc.w    3
  535.     dc.w    cop1lcl
  536.     dc.w    $FFB0
  537.     dc.w    $FFFF
  538.     dc.w    $FFFE
  539.  
  540. lbC00081A    MOVE.W    #$20,_custom+intreq
  541.     CMP.B    #7,$3FF3A
  542.     BNE    lbC000834
  543.     JMP    lbC0000BA
  544.  
  545. lbC000834    CMP.B    #11,$3FF3A
  546.     BNE    lbC000854
  547.     MOVE.B    #1,$78260
  548.     MOVE.B    #$80,$7FA01
  549.     BRA    lbC000870
  550.  
  551. lbC000854    CMP.B    #$13,$3FF3A
  552.     BNE    lbC000876
  553.     MOVE.B    #2,$78260
  554.     MOVE.B    #0,$7FA01
  555. lbC000870    JMP    lbC0000BA
  556.  
  557. lbC000876    MOVEM.L    D0/D7/A0-A4,-(SP)
  558.     BSR    lbC001E32
  559.     BCHG    #1,$BFE001    ; change LED
  560.     TST.W    $3FF1E
  561.     BNE    lbC000918
  562.     SUBQ.W    #1,$3FF08
  563.     BPL.S    lbC0008F2
  564.     MOVE.W    #2,$3FF08
  565.     CMP.B    #2,$78260
  566.     BEQ    lbC0008C4
  567.     MOVE.L    #$78240,A0
  568.     MOVE.L    #_custom+color0,A1
  569.     MOVEQ    #15,D7
  570. lbC0008BA    MOVE.W    (A0)+,D0
  571.     LSL.W    #1,D0
  572.     MOVE.W    D0,(A1)+
  573.     DBRA    D7,lbC0008BA
  574.  
  575. lbC0008C4    MOVEQ    #0,D0
  576.     MOVE.B    $78201,D0
  577.     SWAP    D0
  578.     MOVE.B    $78203,D0
  579.     LSL.W    #8,D0
  580.     MOVE.L    D0,A0
  581.     LEA    scr,A1
  582.     CMP.B    #1,$78260
  583.     BLT    Lores
  584.     BGT    Hires
  585.     BRA    Meres
  586.  
  587. lbC0008F2    TST.W    $3FF20
  588.     BEQ.S    lbC00090A
  589.     SUBQ.W    #1,$3FF20
  590.     BNE.S    lbC000918
  591.     BSR    lbC001464
  592.     BRA    lbC000918
  593.  
  594. lbC00090A    TST.W    $3FF1E
  595.     BNE    lbC000918
  596.     BSR    lbC000C1A
  597. lbC000918    TST.B    $3FF38
  598.     BEQ    lbC000928
  599.     SUBQ.B    #1,$3FF38
  600. lbC000928    BSR    lbC000D60
  601.     TST.B    $2847
  602.     BNE.S    lbC000940
  603.     TST.W    $3FF0A
  604.     BEQ.S    lbC000940
  605.     BSR    lbC000A5C
  606. lbC000940    MOVEM.L    (SP)+,D0/D7/A0-A4
  607.     ADDQ.L    #4,$4BA
  608.     JSR    $4312C
  609.     MOVE.L    (tv_Lev4IntVect).w,-(SP)
  610.     RTS
  611.  
  612. Lores    LEA    $2000(A1),A2
  613.     LEA    $2000(A2),A3
  614.     LEA    $2000(A3),A4
  615.     MOVE.W    #$3E7,D7
  616. 1$    MOVE.W    (A0)+,(A1)+
  617.     MOVE.W    (A0)+,(A2)+
  618.     MOVE.W    (A0)+,(A3)+
  619.     MOVE.W    (A0)+,(A4)+
  620.     MOVE.W    (A0)+,(A1)+
  621.     MOVE.W    (A0)+,(A2)+
  622.     MOVE.W    (A0)+,(A3)+
  623.     MOVE.W    (A0)+,(A4)+
  624.     MOVE.W    (A0)+,(A1)+
  625.     MOVE.W    (A0)+,(A2)+
  626.     MOVE.W    (A0)+,(A3)+
  627.     MOVE.W    (A0)+,(A4)+
  628.     MOVE.W    (A0)+,(A1)+
  629.     MOVE.W    (A0)+,(A2)+
  630.     MOVE.W    (A0)+,(A3)+
  631.     MOVE.W    (A0)+,(A4)+
  632.     DBRA    D7,1$
  633.  
  634.     BRA    lbC0008F2
  635.  
  636. Meres    LEA    $4000(A1),A2
  637.     MOVE.W    #$3E7,D7
  638. 1$    MOVE.W    (A0)+,(A1)+
  639.     MOVE.W    (A0)+,(A2)+
  640.     MOVE.W    (A0)+,(A1)+
  641.     MOVE.W    (A0)+,(A2)+
  642.     MOVE.W    (A0)+,(A1)+
  643.     MOVE.W    (A0)+,(A2)+
  644.     MOVE.W    (A0)+,(A1)+
  645.     MOVE.W    (A0)+,(A2)+
  646.     MOVE.W    (A0)+,(A1)+
  647.     MOVE.W    (A0)+,(A2)+
  648.     MOVE.W    (A0)+,(A1)+
  649.     MOVE.W    (A0)+,(A2)+
  650.     MOVE.W    (A0)+,(A1)+
  651.     MOVE.W    (A0)+,(A2)+
  652.     MOVE.W    (A0)+,(A1)+
  653.     MOVE.W    (A0)+,(A2)+
  654.     DBRA    D7,1$
  655.  
  656.     BRA    lbC0008F2
  657.  
  658. Hires    CMP.L    #$40000,D0
  659.     BLE    lbC0009E4
  660.     MOVE.W    #$3E7,D7
  661. 1$    MOVE.L    (A0)+,(A1)+
  662.     MOVE.L    (A0)+,(A1)+
  663.     MOVE.L    (A0)+,(A1)+
  664.     MOVE.L    (A0)+,(A1)+
  665.     MOVE.L    (A0)+,(A1)+
  666.     MOVE.L    (A0)+,(A1)+
  667.     MOVE.L    (A0)+,(A1)+
  668.     MOVE.L    (A0)+,(A1)+
  669.     DBRA    D7,1$
  670.  
  671.     BRA    lbC0008F2
  672.  
  673. lbC0009E4    MOVE.B    $78201,D0
  674.     MOVE.B    D0,$3FFB3
  675.     MOVE.B    D0,$3FFD3
  676.     MOVE.B    $78203,D0
  677.     MOVE.B    D0,$3FFB6
  678.     MOVE.B    D0,$3FFD6
  679.     BRA    lbC0008F2
  680.  
  681. lbC000A0C    LEA    $28000,A0
  682.     EOR.B    #$E0,0(A0)
  683.     EOR.B    #$80,$50(A0)
  684.     EOR.B    #$80,$A0(A0)
  685.     EOR.B    #7,$4F(A0)
  686.     EOR.B    #1,$9F(A0)
  687.     EOR.B    #1,$EF(A0)
  688.     EOR.B    #$80,$7C10(A0)
  689.     EOR.B    #$80,$7C60(A0)
  690.     EOR.B    #$E0,$7CB0(A0)
  691.     EOR.B    #1,$7C5F(A0)
  692.     EOR.B    #1,$7CAF(A0)
  693.     EOR.B    #7,$7CFF(A0)
  694.     RTS
  695.  
  696. lbC000A5C    MOVEM.L    D1/D2/A0/A1/A5,-(SP)
  697.     SUB.L    A5,A5
  698.     LEA    $3FFF0,A0
  699.     CLR.W    D0
  700.     MOVE.W    #$FF00,_custom+potgo
  701.     BTST    #6,$BFE001
  702.     BNE.S    lbC000A80
  703.     BSET    #1,D0
  704. lbC000A80    BTST    #2,_custom+potinp
  705.     BNE.S    lbC000A8E
  706.     BSET    #0,D0
  707. lbC000A8E    OR.B    #$F8,D0
  708.     MOVE.B    D0,(A0)
  709.     MOVE.W    _custom+joy0dat,D2
  710.     MOVE.L    $3FF12,$3FF0E
  711.     MOVE.B    D2,D1
  712.     MOVE.W    D1,$3FF12
  713.     SUB.W    $3FF0E,D1
  714.     LSR.W    #8,D2
  715.     MOVE.W    D2,$3FF14
  716.     SUB.W    $3FF10,D2
  717.     MOVE.B    D1,1(A0)
  718.     MOVE.B    D2,2(A0)
  719.     MOVE.L    $E22,A1
  720.     MOVE.L    A1,D0
  721.     TST.L    D0
  722.     BMI    lbC000AD8
  723.     JSR    (A1)
  724. lbC000AD8    MOVEM.L    (SP)+,D1/D2/A0/A1/A5
  725.     RTS
  726.  
  727. lbC000ADE    MOVEM.L    D0-D7/A0-A6,-(SP)
  728.     SUB.L    A5,A5
  729.     MOVE.B    $BFED01,D0
  730.     MOVE.W    #8,_custom+intreq
  731.     MOVE.B    $BFEC01,D0
  732.     BSET    #6,$BFEE01
  733.     MOVE.B    #0,$BFEC01
  734.     BCLR    #6,$BFEE01
  735.     NOT.B    D0
  736.     ROR.B    #1,D0
  737.     MOVE.B    D0,D1
  738.     BSR    lbC000B70
  739.     AND.W    #$7F,D1
  740.     CMP.B    #$62,D1
  741.     BEQ.S    lbC000B46
  742.     LEA    e.MSG(PC),A0
  743.     MOVE.B    0(A0,D1.W),D3
  744.     AND.B    #$80,D0
  745.     OR.B    D3,D0
  746.     CLR.W    D1
  747.     LEA    $C76,A0
  748.     JSR    $42B5C
  749.     MOVEM.L    (SP)+,D0-D7/A0-A6
  750.     RTE
  751.  
  752. lbC000B46    CLR.W    D1
  753.     MOVE.B    #$3A,D0
  754.     LEA    $C76,A0
  755.     JSR    $42B5C
  756.     CLR.W    D1
  757.     MOVE.B    #$BA,D0
  758.     LEA    $C76,A0
  759.     JSR    $42B5C
  760.     MOVEM.L    (SP)+,D0-D7/A0-A6
  761.     RTE
  762.  
  763. lbC000B70    MOVEM.L    D0-D3/A0,-(SP)
  764.     MOVE.B    $3FF3A,D3
  765.     LEA    cdeON.MSG(PC),A0
  766.     MOVEQ    #0,D0
  767. lbC000B80    MOVE.B    (A0)+,D2
  768.     CMP.B    D1,D2
  769.     BNE.S    lbC000B8A
  770.     BSET    D0,D3
  771.     BRA.S    lbC000B94
  772.  
  773. lbC000B8A    OR.B    #$80,D2
  774.     CMP.B    D1,D2
  775.     BNE.S    lbC000B94
  776.     BCLR    D0,D3
  777. lbC000B94    ADDQ.B    #1,D0
  778.     CMP.B    #5,D0
  779.     BNE    lbC000B80
  780.     MOVE.B    D3,$3FF3A
  781.     MOVEM.L    (SP)+,D0-D3/A0
  782.     RTS
  783.  
  784. cdeON.MSG    dc.b    'cdeON',0
  785. e.MSG    dc.b    13
  786.     dc.b    2
  787.     dc.b    3
  788.     dc.b    4
  789.     dc.b    5
  790.     dc.b    6
  791.     dc.b    7
  792.     dc.b    8
  793.     dc.b    9
  794.     dc.b    10
  795.     dc.b    11
  796.     dc.b    12
  797.     dc.b    13
  798.     dc.b    'e',0
  799.     dc.b    'p'
  800.     dc.b    $10
  801.     dc.b    $11
  802.     dc.b    $12
  803.     dc.b    $13
  804.     dc.b    $14
  805.     dc.b    $15
  806.     dc.b    $16
  807.     dc.b    $17
  808.     dc.b    $18
  809.     dc.b    $19
  810.     dc.b    $1A
  811.     dc.b    $1B
  812.     dc.b    0
  813.     dc.b    'mno'
  814.     dc.b    $1E
  815.     dc.b    $1F
  816.     dc.b    ' !"#$%&''()',0
  817.     dc.b    'jkl`,'
  818.     dc.b    '-./012345',0
  819.     dc.b    'qghi9'
  820.     dc.b    14
  821.     dc.b    15
  822.     dc.b    'r'
  823.     dc.b    $1C
  824.     dc.b    1
  825.     dc.b    'S',0,0
  826.     dc.b    0
  827.     dc.b    'J',0
  828.     dc.b    'HPMK;<=>?@ABCD',0,0
  829.     dcb.b    2,0
  830.     dc.b    0
  831.     dc.b    'b*6:'
  832.     dc.b    $1D
  833.     dc.b    '8aRG',0,0
  834.  
  835. lbC000C1A    MOVEM.L    D0/D1,-(SP)
  836.     TST.B    $3FF39
  837.     BNE    lbC000C5C
  838.     MOVE.B    #1,$3FF38
  839.     MOVE.B    #$28,$3FF39
  840.     MOVEQ    #0,D0
  841.     MOVE.B    $3FF3B,D0
  842.     BSR    lbC000C68
  843.     MOVEQ    #2,D1
  844.     ADDQ.B    #1,$3FF3B
  845. lbC000C4C    ADDQ.B    #1,D0
  846.     CMP.B    D1,D0
  847.     BNE    lbC000C5C
  848.     MOVE.B    #0,$3FF3B
  849. lbC000C5C    SUBQ.B    #1,$3FF39
  850.     MOVEM.L    (SP)+,D0/D1
  851.     RTS
  852.  
  853. lbC000C68    MOVEM.L    D0-D7/A0-A2,-(SP)
  854.     LEA    $3FF34,A0
  855.     LEA    $3FF40,A1
  856.     LEA    $3FF3C,A2
  857.     BSR    lbC000D2A
  858.     TST.B    0(A0,D0.W)
  859.     BNE    lbC000C8E
  860.     CLR.B    0(A1,D0.W)
  861. lbC000C8E    TST.B    0(A1,D0.W)
  862.     BEQ    lbC000CA2
  863.     BSET    #1,$BFD100
  864.     BRA    lbC000CAA
  865.  
  866. lbC000CA2    BCLR    #1,$BFD100
  867. lbC000CAA    MOVE.B    0(A2,D0.W),D1
  868.     CMP.B    #$FF,D1
  869.     BNE    lbC000CEA
  870.     BCLR    #0,$BFD100
  871.     NOP
  872.     NOP
  873.     NOP
  874.     BSET    #0,$BFD100
  875.     TST.B    0(A1,D0.W)
  876.     BEQ    lbC000CE0
  877.     SUBQ.B    #1,0(A0,D0.W)
  878.     CLR.B    0(A1,D0.W)
  879.     BRA    lbC000CEA
  880.  
  881. lbC000CE0    ADDQ.B    #1,0(A0,D0.W)
  882.     MOVE.B    #1,0(A1,D0.W)
  883. lbC000CEA    BTST    #2,$BFE001
  884.     BEQ.S    lbC000D06
  885.     CMP.B    #$FF,D1
  886.     BNE    lbC000D20
  887.     MOVE.B    #2,0(A2,D0.W)
  888.     BRA    lbC000D20
  889.  
  890. lbC000D06    MOVE.B    #$FF,0(A2,D0.W)
  891.     MOVE.W    $73FF0,D1
  892.     CMP.W    D0,D1
  893.     BNE    lbC000D20
  894.     MOVE.W    #$FFFF,$73FF0
  895. lbC000D20    BSR    lbC000D42
  896.     MOVEM.L    (SP)+,D0-D7/A0-A2
  897.     RTS
  898.  
  899. lbC000D2A    MOVE.L    D0,D6
  900.     ADDQ.L    #3,D6
  901.     MOVE.B    #$7D,$BFD100
  902.     NOP
  903.     NOP
  904.     BCLR    D6,$BFD100
  905.     RTS
  906.  
  907. lbC000D42    MOVE.L    D0,D6
  908.     ADDQ.L    #3,D6
  909.     MOVE.B    #$FD,$BFD100
  910.     NOP
  911.     NOP
  912.     BCLR    D6,$BFD100
  913.     BSET    D6,$BFD100
  914.     RTS
  915.  
  916. lbC000D60    RTS
  917.  
  918. lbC000D62    LEA    XBIOS,A0
  919.     BRA.S    lbC000D70
  920.  
  921. lbC000D6A    LEA    BIOS,A0
  922. lbC000D70    MOVE.L    $4A2,A1
  923.     MOVE.W    (SP)+,D0
  924.     MOVE.W    D0,-(A1)
  925.     MOVE.L    (SP)+,-(A1)
  926.     MOVEM.L    D3-D7/A3-A7,-(A1)
  927.     MOVE.L    A1,$4A2
  928.     BTST    #13,D0
  929.     BNE.S    lbC000D8E
  930.     MOVE    USP,SP
  931. lbC000D8E    MOVE.W    (SP)+,D0
  932.     CMP.W    (A0)+,D0
  933.     BGE.S    lbC000DA4
  934.     LSL.W    #2,D0
  935.     MOVE.L    0(A0,D0.W),D0
  936.     MOVE.L    D0,A0
  937.     BPL.S    lbC000DA0
  938.     MOVE.L    (A0),A0
  939. lbC000DA0    SUB.L    A5,A5
  940.     JSR    (A0)
  941. lbC000DA4    MOVE.L    $4A2,A1
  942.     MOVEM.L    (A1)+,D3-D7/A3-A7
  943.     MOVE.L    (A1)+,-(SP)
  944.     MOVE.W    (A1)+,-(SP)
  945.     MOVE.L    A1,$4A2
  946.     RTE
  947.  
  948. BIOS    dc.w    12
  949.     dc.l    $40A46
  950.     dc.l    BCONSTAT
  951.     dc.l    BCONIN
  952.     dc.l    BCONOUT
  953.     dc.l    $80000476
  954.     dc.l    $40A72
  955.     dc.l    $40A8A
  956.     dc.l    $80000472
  957.     dc.l    BCOSTAT
  958.     dc.l    $8000047E
  959.     dc.l    $40A2E
  960.     dc.l    $40A34
  961. XBIOS    dc.w    $41
  962.     dc.l    INITMOUSE
  963.     dc.l    $40670
  964.     dc.l    $40A92
  965.     dc.l    $40AA6
  966.     dc.l    GETREZ
  967.     dc.l    SETSCREEN
  968.     dc.l    $40B06
  969.     dc.l    $40B0E
  970.     dc.l    FLOPRD
  971.     dc.l    FLOPWR
  972.     dc.l    FLOPFMT
  973.     dc.l    $40FC0
  974.     dc.l    DUMMY    ;  
  975.     dc.l    DUMMY    ;  
  976.     dc.l    $428F6
  977.     dc.l    DUMMY
  978.     dc.l    $43088
  979.     dc.l    $41510
  980.     dc.l    $415F8
  981.     dc.l    $41AE2
  982.     dc.l    $40D50
  983.     dc.l    $446F2
  984.     dc.l    SETTIME
  985.     dc.l    GETTIME
  986.     dc.l    $430B4
  987.     dc.l    DUMMY    ;  
  988.     dc.l    DUMMY    ;  
  989.     dc.l    DUMMY    ;  
  990.     dc.l    GIACCESS
  991.     dc.l    OFFGIBIT
  992.     dc.l    ONGIBIT
  993.     dc.l    DUMMY
  994.     dc.l    DOSOUND
  995.     dc.l    $430E2
  996.     dc.l    $43116
  997.     dc.l    $430F4
  998.     dc.l    $43254
  999.     dc.l    $407D0
  1000.     dc.l    $4097E
  1001.     dc.l    $40B34
  1002.     dc.l    DUMMY
  1003.     dcb.l    $17,$40670
  1004.     dc.l    $40EF6
  1005.  
  1006. GIACCESS    MOVE.W    #$F0,_custom+color0
  1007.     MOVEQ    #0,D0
  1008.     MOVEQ    #0,D1
  1009.     LEA    $73000,A0
  1010.     MOVE.B    4(SP),D0
  1011.     MOVE.W    6(SP),D1
  1012.     BTST    #7,D1
  1013.     BEQ    lbC000F20
  1014.     AND.B    #15,D0
  1015.     MOVE.B    D0,0(A0,D1.W)
  1016.     CLR.B    D0
  1017.     RTS
  1018.  
  1019. lbC000F20    MOVE.B    0(A0,D1.W),D0
  1020.     RTS
  1021.  
  1022. OFFGIBIT    MOVEQ    #0,D0
  1023.     RTS
  1024.  
  1025. ONGIBIT    MOVEQ    #0,D0
  1026.     RTS
  1027.  
  1028. DOSOUND    MOVEQ    #0,D0
  1029.     RTS
  1030.  
  1031. BCONSTAT    MOVE    #$2100,SR
  1032.     CMP.W    #0,4(SP)
  1033.     BEQ.S    lbC000F48
  1034.     CMP.W    #2,4(SP)
  1035.     BNE    DUMMY
  1036. lbC000F48    JMP    $40984
  1037.  
  1038. BCONIN    CMP.W    #2,4(SP)
  1039.     BNE    DUMMY
  1040.     MOVE    #$2100,SR
  1041.     JMP    $4098C
  1042.  
  1043. BCONOUT    CMP.W    #0,4(SP)
  1044.     BEQ.S    lbC000F82
  1045.     CMP.W    #2,4(SP)
  1046.     BEQ.S    lbC000F7C
  1047.     CMP.W    #5,4(SP)
  1048.     BNE    DUMMY
  1049. lbC000F7C    JMP    $4099C
  1050.  
  1051. lbC000F82    BTST    #2,$BFD000
  1052.     BEQ    DUMMY
  1053. lbC000F8E    BTST    #0,$BFD000
  1054.     BNE.S    lbC000F8E
  1055.     MOVE.B    #$FF,$BFE301
  1056.     MOVE.B    7(SP),$BFE101
  1057.     MOVEQ    #1,D0
  1058.     RTS
  1059.  
  1060. BCOSTAT    CMP.W    #0,4(SP)
  1061.     BEQ.S    lbC000FC4
  1062.     CMP.W    #2,4(SP)
  1063.     BNE    DUMMY
  1064.     JMP    $40994
  1065.  
  1066. lbC000FC4    BTST    #0,$BFD000
  1067.     BNE    DUMMY
  1068.     MOVEQ    #-$1,D0
  1069.     RTS
  1070.  
  1071. INITMOUSE    MOVE.L    10(SP),$E22
  1072.     MOVE.W    #1,$3FF0A
  1073.     MOVEQ    #-$1,D0
  1074.     RTS
  1075.  
  1076. SETSCREEN    TST.L    4(SP)
  1077.     BMI.S    lbC000FF4
  1078.     MOVE.L    4(SP),$44E(A5)
  1079. lbC000FF4    TST.L    8(SP)
  1080.     BMI.S    lbC00100A
  1081.     MOVE.B    9(SP),$78201
  1082.     MOVE.B    10(SP),$78203
  1083. lbC00100A    TST.W    12(SP)
  1084.     BMI.S    lbC001028
  1085.     MOVE.B    13(SP),D0
  1086.     CMP.B    $44C(A5),D0
  1087.     BEQ.S    lbC001028
  1088.     MOVE.B    D0,$44C(A5)
  1089.     MOVE.B    D0,$78260
  1090.     BRA    lbC0000BA
  1091.  
  1092. lbC001028    RTS
  1093.  
  1094. GETREZ    MOVEQ    #0,D0
  1095.     MOVE.B    $44C,D0
  1096.     RTS
  1097.  
  1098. FLOPRD    MOVE.W    12(SP),$3FF22
  1099.     BSR    lbC00136E
  1100.     TST.L    D0
  1101.     BNE    lbC001072
  1102.     MOVE.W    $12(SP),$3FF24
  1103.     MOVE.W    $10(SP),$3FF26
  1104.     MOVE.W    14(SP),$3FF28
  1105.     MOVE.W    $14(SP),$3FF2A
  1106.     MOVE.L    4(SP),$3FF2C
  1107.     BSR    lbC0014F2
  1108. lbC001072    BSR    lbC001422
  1109.     TST.L    D0
  1110.     RTS
  1111.  
  1112. FLOPWR    MOVE.W    12(SP),$3FF22
  1113.     BSR    lbC00136E
  1114.     TST.L    D0
  1115.     BNE    lbC0010B8
  1116.     MOVE.W    $12(SP),$3FF24
  1117.     MOVE.W    $10(SP),$3FF26
  1118.     MOVE.W    14(SP),$3FF28
  1119.     MOVE.W    $14(SP),$3FF2A
  1120.     MOVE.L    4(SP),$3FF2C
  1121.     BSR    lbC0016F0
  1122. lbC0010B8    BSR    lbC001422
  1123.     TST.L    D0
  1124.     RTS
  1125.  
  1126. FLOPFMT    CMP.L    #$87654321,$16(SP)
  1127.     BNE    DUMMY
  1128.     MOVE.W    12(SP),$3FF22
  1129.     BSR    lbC00136E
  1130.     TST.L    D0
  1131.     BNE    lbC00110A
  1132.     MOVE.W    $12(SP),$3FF24
  1133.     MOVE.W    $10(SP),$3FF26
  1134.     MOVE.W    14(SP),$3FF32
  1135.     MOVE.L    4(SP),$3FF2C
  1136.     MOVE.W    $1A(SP),$3FF30
  1137.     BSR    lbC001A68
  1138. lbC00110A    BSR    lbC001422
  1139.     TST.L    D0
  1140.     RTS
  1141.  
  1142. DUMMY    CLR.L    D0
  1143.     RTS
  1144.  
  1145. lbC001116    MOVEQ    #-$2,D0
  1146.     TST.L    D0
  1147.     RTS
  1148.  
  1149. lbC00111C    MOVE.W    #2,$4A6
  1150.     MOVE.L    #3,$4C2
  1151.     MOVEQ    #1,D0
  1152. lbC001130    MOVE.W    D0,$3FF22
  1153.     MOVE.L    D0,-(SP)
  1154.     BSR    lbC00135E
  1155.     MOVE.L    (SP)+,D0
  1156.     TST.L    D6
  1157.     BPL    lbC001150
  1158.     SUBQ.W    #1,$4A6
  1159.     BCLR    D0,$4C5
  1160. lbC001150    DBRA    D0,lbC001130
  1161.  
  1162.     BSR    GETTIME
  1163.     SWAP    D0
  1164.     MOVE.W    D0,-(SP)
  1165.     MOVE.W    #$2B,-(SP)
  1166.     TRAP    #1
  1167.     ADDQ.L    #4,SP
  1168.     BSR    GETTIME
  1169.     MOVE.W    D0,-(SP)
  1170.     MOVE.W    #$2D,-(SP)
  1171.     TRAP    #1
  1172.     ADDQ.L    #4,SP
  1173.     RTS
  1174.  
  1175. lbC001174    TST.L    6(SP)
  1176.     BEQ    lbC001276
  1177.     MOVE.L    6(SP),A0
  1178.     MOVE.W    14(SP),$3FF22
  1179.     BSR    lbC00136E
  1180.     TST.L    D0
  1181.     BNE    lbC00128C
  1182.     MOVE.W    12(SP),D6
  1183.     MOVE.W    10(SP),D7
  1184.     MOVE.L    #$7590,A1
  1185.     CMP.W    #1,$3FF22
  1186.     BEQ.S    lbC0011B0
  1187.     MOVE.L    #$7570,A1
  1188. lbC0011B0    CLR.W    $3FF24
  1189.     MOVE.W    D6,D0
  1190.     EXT.L    D0
  1191.     DIVU    $16(A1),D0
  1192.     MOVE.W    D0,$3FF26
  1193.     SWAP    D0
  1194.     CMP.W    $18(A1),D0
  1195.     BLT.S    lbC0011D8
  1196.     MOVE.W    #1,$3FF24
  1197.     SUB.W    $18(A1),D0
  1198. lbC0011D8    MOVE.W    D0,D1
  1199.     ADDQ.W    #1,D1
  1200.     MOVE.W    D1,$3FF28
  1201.     MOVE.W    D0,D1
  1202.     ADD.W    D7,D1
  1203.     CMP.W    $18(A1),D1
  1204.     BLE.S    lbC0011F0
  1205.     MOVE.W    $18(A1),D1
  1206. lbC0011F0    SUB.W    D0,D1
  1207.     MOVE.W    D1,$3FF2A
  1208.     MOVE.L    A0,$3FF2C
  1209.     MOVE.W    4(SP),D0
  1210.     CMP.W    #0,D0
  1211.     BEQ.S    lbC001240
  1212.     CMP.W    #1,D0
  1213.     BEQ    lbC001226
  1214.     CMP.W    #2,D0
  1215.     BEQ    lbC00124C
  1216.     CMP.W    #3,D0
  1217.     BEQ    lbC001232
  1218.     MOVEQ    #-$5,D0
  1219.     BRA    lbC00128C
  1220.  
  1221. lbC001226    MOVEM.L    D6/D7/A1,-(SP)
  1222.     BSR    lbC0016F0
  1223.     BRA    lbC001256
  1224.  
  1225. lbC001232    MOVEM.L    D6/D7/A1,-(SP)
  1226.     BSR    lbC0016F0
  1227.     CLR.L    D0
  1228.     BRA    lbC001256
  1229.  
  1230. lbC001240    MOVEM.L    D6/D7/A1,-(SP)
  1231.     BSR    lbC0014F2
  1232.     BRA    lbC001256
  1233.  
  1234. lbC00124C    MOVEM.L    D6/D7/A1,-(SP)
  1235.     BSR    lbC0014F2
  1236.     CLR.L    D0
  1237. lbC001256    MOVEM.L    (SP)+,D6/D7/A1
  1238.     TST.L    D0
  1239.     BNE.S    lbC00128C
  1240.     ADD.W    $3FF2A,D6
  1241.     SUB.W    $3FF2A,D7
  1242.     BNE    lbC0011B0
  1243.     BSR    lbC001422
  1244.     CLR.L    D0
  1245.     RTS
  1246.  
  1247. lbC001276    MOVE.W    14(SP),D0
  1248.     MOVE.W    10(SP),D1
  1249.     LEA    $3FF3C,A0
  1250.     MOVE.B    D1,0(A0,D0.W)
  1251.     CLR.L    D0
  1252.     RTS
  1253.  
  1254. lbC00128C    BSR    lbC001422
  1255.     TST.L    D0
  1256.     RTS
  1257.  
  1258. lbC001294    TST.B    $3FF38
  1259.     BNE    lbC001294
  1260.     LEA    $3FF3C,A0
  1261.     MOVE.W    4(SP),D0
  1262.     MOVEQ    #0,D1
  1263.     MOVE.B    0(A0,D0.W),D1
  1264.     TST.B    D1
  1265.     BMI    lbC0012BC
  1266.     CLR.B    0(A0,D0.W)
  1267.     MOVE.L    D1,D0
  1268.     RTS
  1269.  
  1270. lbC0012BC    MOVEQ    #0,D0
  1271.     RTS
  1272.  
  1273. lbC0012C0    LINK    A6,#0
  1274.     MOVEM.L    D6/D7,-(SP)
  1275.     JSR    lbC00111C
  1276.     TST.W    $4A6
  1277.     BEQ.S    lbC0012DA
  1278.     MOVEQ    #1,D0
  1279.     BRA.S    lbC0012DC
  1280.  
  1281. lbC0012DA    MOVEQ    #2,D0
  1282. lbC0012DC    MOVE.W    D0,D7
  1283.     TST.W    $4A6
  1284.     BEQ.S    lbC00132A
  1285.     CMP.W    #2,$446
  1286.     BGE.S    lbC00132A
  1287.     MOVE.W    #1,(SP)
  1288.     CLR.W    -(SP)
  1289.     CLR.W    -(SP)
  1290.     MOVE.W    #1,-(SP)
  1291.     MOVE.W    $446,-(SP)
  1292.     CLR.L    -(SP)
  1293.     MOVE.L    #$16DA,-(SP)
  1294.     JSR    FLOPRD
  1295.     ADD.L    #$10,SP
  1296.     TST.L    D0
  1297.     BNE.S    lbC00131E
  1298.     CLR.W    D7
  1299.     BRA.S    lbC00132A
  1300.  
  1301. lbC00131E    TST.B    $9F8
  1302.     BNE.S    lbC00132A
  1303.     MOVEQ    #3,D0
  1304.     BRA.S    lbC001350
  1305.  
  1306. lbC00132A    TST.W    D7
  1307.     BEQ.S    lbC001332
  1308.     MOVE.W    D7,D0
  1309.     BRA.S    lbC001350
  1310.  
  1311. lbC001332    MOVE.W    #$100,(SP)
  1312.     MOVE.L    #$16DA,-(SP)
  1313.     JSR    $416E4
  1314.     ADDQ.L    #4,SP
  1315.     CMP.W    #$1234,D0
  1316.     BNE.S    lbC00134E
  1317.     CLR.W    D0
  1318.     BRA.S    lbC001350
  1319.  
  1320. lbC00134E    MOVEQ    #4,D0
  1321. lbC001350    TST.L    (SP)+
  1322.     MOVE.L    (SP)+,D7
  1323.     UNLK    A6
  1324.     RTS
  1325.  
  1326. lbC001358    DBRA    D0,lbC001358
  1327.  
  1328.     RTS
  1329.  
  1330. lbC00135E    BSR    lbC00136E
  1331.     MOVE.L    #$5A,D6
  1332.     BSR    lbC0014A0
  1333.     RTS
  1334.  
  1335. lbC00136E    TST.B    $3FF38
  1336.     BNE    lbC00136E
  1337.     MOVE.W    #1,$3FF1E
  1338.     MOVE.W    $3FF1C,D0
  1339.     CMP.W    $3FF22,D0
  1340.     BEQ.S    lbC0013A2
  1341.     BSR    lbC001464
  1342.     CLR.W    $3FF20
  1343.     MOVE.W    $3FF22,$3FF1C
  1344. lbC0013A2    MOVE.W    $3FF1C,D0
  1345.     TST.W    $3FF20
  1346.     BNE.S    lbC001416
  1347.     BSR    lbC00142A
  1348.     BCLR    #1,$BFD100
  1349.     BCLR    #0,$BFD100
  1350.     NOP
  1351.     NOP
  1352.     NOP
  1353.     NOP
  1354.     BSET    #0,$BFD100
  1355.     MOVE.L    D7,-(SP)
  1356.     MOVE.L    #$A88,D7
  1357.     BSR    lbC001CC0
  1358.     MOVE.L    (SP)+,D7
  1359.     MOVE.L    A0,-(SP)
  1360.     MOVE.W    $3FF22,D0
  1361.     LEA    $3FF34,A0
  1362.     ADDQ.B    #1,0(A0,D0.W)
  1363.     MOVE.L    (SP)+,A0
  1364.     BTST    #2,$BFE001
  1365.     BNE.S    lbC001416
  1366.     CLR.W    $3FF1E
  1367.     MOVE.W    #$64,$3FF20
  1368.     MOVE.L    #$FFFFFFEF,D0
  1369.     RTS
  1370.  
  1371. lbC001416    MOVE.W    #$64,$3FF20
  1372.     MOVEQ    #0,D0
  1373.     RTS
  1374.  
  1375. lbC001422    CLR.W    $3FF1E
  1376.     RTS
  1377.  
  1378. lbC00142A    ADDQ.W    #3,D0
  1379.     MOVE.B    #$FF,$BFD300
  1380.     MOVE.B    #3,$BFE201
  1381.     BSET    D0,$BFD100
  1382.     BSET    #0,$BFD100
  1383.     BCLR    #7,$BFD100
  1384.     BCLR    D0,$BFD100
  1385.     MOVEQ    #5,D7
  1386. lbC00145A    BSR    lbC001C9C
  1387.     DBRA    D7,lbC00145A
  1388.  
  1389.     RTS
  1390.  
  1391. lbC001464    MOVE.W    $3FF1C,D0
  1392.     ADDQ.W    #3,D0
  1393.     MOVE.W    #$4000,_custom+dsklen
  1394.     BSET    D0,$BFD100
  1395.     BSET    #7,$BFD100
  1396.     NOP
  1397.     NOP
  1398.     NOP
  1399.     BCLR    D0,$BFD100
  1400.     NOP
  1401.     NOP
  1402.     NOP
  1403.     NOP
  1404.     NOP
  1405.     BSET    D0,$BFD100
  1406.     RTS
  1407.  
  1408. lbC0014A0    MOVE.B    $BFE001,D0
  1409.     BTST    #4,D0
  1410.     BEQ.S    lbC0014DE
  1411.     BSET    #1,$BFD100
  1412.     BCLR    #0,$BFD100
  1413.     NOP
  1414.     NOP
  1415.     NOP
  1416.     NOP
  1417.     BSET    #0,$BFD100
  1418.     MOVE.L    #$A88,D7
  1419.     BSR    lbC001CC0
  1420.     SUBQ.L    #1,D6
  1421.     BNE.S    lbC0014A0
  1422.     MOVEQ    #-$1,D6
  1423.     RTS
  1424.  
  1425. lbC0014DE    MOVE.W    $3FF22,D1
  1426.     LEA    $3FF34,A0
  1427.     CLR.B    0(A0,D1.W)
  1428.     MOVEQ    #0,D6
  1429. lbC0014F0    RTS
  1430.  
  1431. lbC0014F2    MOVE.W    $3FF22,D0
  1432.     MOVE.W    $73FF0,D1
  1433.     CMP.W    D0,D1
  1434.     BNE    lbC00152C
  1435.     MOVE.W    $3FF24,D0
  1436.     MOVE.W    $73FF2,D1
  1437.     CMP.W    D0,D1
  1438.     BNE    lbC00152C
  1439.     MOVE.W    $3FF26,D0
  1440.     MOVE.W    $73FF4,D1
  1441.     CMP.W    D0,D1
  1442.     BNE    lbC00152C
  1443.     BRA    lbC0015BE
  1444.  
  1445. lbC00152C    BSR    lbC001CCA
  1446.     MOVE.L    #$A88,D7
  1447.     BSR    lbC001CC0
  1448.     BTST    #2,$BFE001
  1449.     BEQ    lbC001A60
  1450.     BSET    #2,$BFD100
  1451.     TST.W    $3FF24
  1452.     BEQ.S    lbC00155E
  1453.     BCLR    #2,$BFD100
  1454. lbC00155E    MOVE.W    #2,_custom+intreq
  1455.     MOVE.L    #$38004,_custom+dskpth
  1456.     MOVE.W    #$4489,_custom+dsksync
  1457.     MOVE.W    #$7F00,_custom+adkcon
  1458.     MOVE.W    #$9500,_custom+adkcon
  1459.     MOVE.W    #$8210,_custom+dmacon
  1460.     BSR    lbC001C9C
  1461.     MOVE.W    #$4000,_custom+dsklen
  1462.     MOVE.W    #$9A00,_custom+dsklen
  1463.     MOVE.W    #$9A00,_custom+dsklen
  1464.     BSR    lbC001D20
  1465.     MOVE.W    #$4000,_custom+dsklen
  1466.     TST.L    D0
  1467.     BEQ.S    lbC0015F2
  1468.     RTS
  1469.  
  1470. lbC0015BE    MOVEQ    #0,D0
  1471.     MOVEQ    #0,D1
  1472.     MOVE.W    $3FF28,D0
  1473.     MOVE.W    $3FF2A,D1
  1474.     MOVE.L    $3FF2C,A0
  1475.     SUBQ.L    #1,D0
  1476.     LSL.L    #8,D0
  1477.     LSL.L    #1,D0
  1478.     LEA    $74000,A1
  1479.     ADD.L    D0,A1
  1480.     LSL.L    #8,D1
  1481.     LSL.L    #1,D1
  1482.     SUBQ.L    #1,D1
  1483. lbC0015E8    MOVE.B    (A1)+,(A0)+
  1484.     DBRA    D1,lbC0015E8
  1485.  
  1486.     CLR.L    D0
  1487.     RTS
  1488.  
  1489. lbC0015F2    LEA    $38004,A1
  1490.     MOVE.L    A1,A0
  1491.     LEA    lbL00206A,A2
  1492.     LEA    lbW00216A,A3
  1493.     MOVE.W    #$19FF,D7
  1494.     MOVEQ    #0,D1
  1495. lbC00160C    MOVE.B    (A1)+,D1
  1496.     MOVE.B    0(A2,D1.W),D0
  1497.     MOVE.B    (A1)+,D1
  1498.     OR.B    0(A3,D1.W),D0
  1499.     MOVE.B    D0,(A0)+
  1500.     DBRA    D7,lbC00160C
  1501.  
  1502.     MOVE.W    $3FF28,D0
  1503.     MOVE.W    $3FF2A,D1
  1504.     SUBQ.W    #1,D1
  1505.     MOVE.L    $3FF2C,A0
  1506. lbC001632    LEA    $38004,A1
  1507.     LEA    $39B5C,A2
  1508.     MOVE.B    #$A1,$1B58(A1)
  1509.     MOVE.B    #$A1,$1B59(A1)
  1510.     MOVE.B    #$FE,$1B5A(A1)
  1511. lbC001650    CMP.B    #$A1,(A1)+
  1512.     BNE.S    lbC001650
  1513.     CMP.B    #$FE,(A1)
  1514.     BNE.S    lbC001650
  1515.     CMP.B    3(A1),D0
  1516.     BEQ    lbC001682
  1517.     CMP.B    #1,D0
  1518.     BNE    lbC001676
  1519.     MOVEQ    #12,D7
  1520.     CMP.B    3(A1),D7
  1521.     BEQ    lbC001682
  1522. lbC001676    CMP.L    A2,A1
  1523.     BLT.S    lbC001650
  1524.     MOVE.L    #$FFFFFFF8,D0
  1525.     RTS
  1526.  
  1527. lbC001682    ADD.L    #$20,A1
  1528. lbC001688    CMP.B    #$A1,(A1)+
  1529.     BNE.S    lbC001688
  1530.     CMP.B    #$FB,(A1)
  1531.     BNE.S    lbC001688
  1532.     MOVE.B    #$FB,(A1)
  1533.     MOVE.B    #$A1,-(A1)
  1534.     MOVE.B    #$A1,-(A1)
  1535.     MOVE.B    #$A1,-(A1)
  1536.     ADDQ.L    #4,A1
  1537.     MOVE.W    #$1FF,D7
  1538. lbC0016AA    MOVE.B    (A1)+,(A0)+
  1539.     MOVE.L    A0,$3FF2C
  1540.     DBRA    D7,lbC0016AA
  1541.  
  1542.     MOVE.L    D6,-(SP)
  1543.     MOVEQ    #-$1,D6
  1544.     MOVEQ    #-$1,D7
  1545.     SUB.L    #$204,A1
  1546.     MOVE.L    #$205,D2
  1547.     BSR    lbC001E0A
  1548.     OR.B    D6,D7
  1549.     MOVE.L    (SP)+,D6
  1550.     TST.B    D7
  1551.     BEQ    lbC0016DA
  1552.     BSR    lbC001C5A
  1553. lbC0016DA    ADDQ.W    #1,D0
  1554.     DBRA    D1,lbC001632
  1555.  
  1556.     MOVEQ    #0,D0
  1557.     RTS
  1558.  
  1559.     MOVE.W    #15,_custom+color0
  1560.     MOVEQ    #-$4,D0
  1561.     RTS
  1562.  
  1563. lbC0016F0    LEA    lbC0016F0(PC),A6
  1564.     BSR    lbC001CCA
  1565.     MOVE.L    #$A88,D7
  1566.     BSR    lbC001CC0
  1567.     BTST    #2,$BFE001
  1568.     BEQ    lbC001A60
  1569.     BSET    #2,$BFD100
  1570.     TST.W    $3FF24
  1571.     BEQ.S    lbC001726
  1572.     BCLR    #2,$BFD100
  1573. lbC001726    MOVE.W    $3FF22,D0
  1574.     MOVE.W    $73FF0,D1
  1575.     CMP.W    D0,D1
  1576.     BNE    lbC001760
  1577.     MOVE.W    $3FF24,D0
  1578.     MOVE.W    $73FF2,D1
  1579.     CMP.W    D0,D1
  1580.     BNE    lbC001760
  1581.     MOVE.W    $3FF26,D0
  1582.     MOVE.W    $73FF4,D1
  1583.     CMP.W    D0,D1
  1584.     BNE    lbC001760
  1585.     BRA    lbC001808
  1586.  
  1587. lbC001760    MOVE.W    $3FF2A,-(SP)
  1588.     MOVE.W    $3FF28,-(SP)
  1589.     MOVE.L    $3FF2C,-(SP)
  1590.     MOVE.L    #$74000,$3FF2C
  1591.     MOVE.W    #9,$3FF2A
  1592.     MOVE.W    #1,$3FF28
  1593.     BSR    lbC00155E
  1594.     TST.L    D0
  1595.     BNE    lbC001A0A
  1596.     MOVE.L    #$75200,$3FF2C
  1597.     MOVE.W    #1,$3FF2A
  1598.     MOVE.W    #10,$3FF28
  1599.     BSR    lbC00155E
  1600.     MOVE.L    (SP)+,$3FF2C
  1601.     MOVE.W    (SP)+,$3FF28
  1602.     MOVE.W    (SP)+,$3FF2A
  1603.     MOVE.W    #9,$3FF32
  1604.     TST.L    D0
  1605.     BNE    lbC0017DC
  1606.     MOVE.W    #10,$3FF32
  1607. lbC0017DC    MOVE.W    $3FF22,$73FF0
  1608.     MOVE.W    $3FF24,$73FF2
  1609.     MOVE.W    $3FF26,$73FF4
  1610.     MOVE.W    $3FF32,$73FF6
  1611.     BRA    lbC001812
  1612.  
  1613. lbC001808    MOVE.W    $73FF6,$3FF32
  1614. lbC001812    LEA    $74000,A1
  1615.     MOVEQ    #0,D0
  1616.     MOVE.W    $3FF28,D0
  1617.     SUBQ.L    #1,D0
  1618.     LSL.L    #1,D0
  1619.     LSL.L    #8,D0
  1620.     ADD.L    D0,A1
  1621.     MOVE.L    $3FF2C,A2
  1622.     MOVE.W    $3FF2A,D1
  1623.     SUBQ.L    #1,D1
  1624. lbC001836    MOVE.L    #$1FF,D0
  1625. lbC00183C    MOVE.B    (A2)+,(A1)+
  1626.     DBRA    D0,lbC00183C
  1627.  
  1628.     DBRA    D1,lbC001836
  1629.  
  1630.     LEA    $74000,A2
  1631.     LEA    $38004,A1
  1632.     MOVEQ    #14,D0
  1633. lbC001854    MOVE.L    #$4E4E4E4E,(A1)+
  1634.     DBRA    D0,lbC001854
  1635.  
  1636.     MOVEQ    #1,D1
  1637. lbC001860    MOVEQ    #2,D0
  1638. lbC001862    CLR.L    (A1)+
  1639.     DBRA    D0,lbC001862
  1640.  
  1641.     MOVE.L    #$A1A1A1FE,(A1)+
  1642.     MOVE.B    $3FF27,(A1)+
  1643.     MOVE.B    $3FF25,(A1)+
  1644.     MOVE.B    D1,(A1)+
  1645.     MOVE.B    #2,(A1)+
  1646.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1647.     SUBQ.L    #8,A1
  1648.     MOVEQ    #-$1,D6
  1649.     MOVEQ    #-$1,D7
  1650.     MOVEQ    #7,D2
  1651.     BSR    lbC001E0A
  1652.     MOVE.B    D6,(A1)+
  1653.     MOVE.B    D7,(A1)+
  1654.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1655.     ADDQ.L    #2,A1
  1656.     MOVEQ    #10,D0
  1657. lbC00189C    MOVE.W    #$4E4E,(A1)+
  1658.     DBRA    D0,lbC00189C
  1659.  
  1660.     MOVEQ    #2,D0
  1661. lbC0018A6    CLR.L    (A1)+
  1662.     DBRA    D0,lbC0018A6
  1663.  
  1664.     MOVE.L    #$A1A1A1FB,(A1)+
  1665.     MOVE.L    #$74000,A2
  1666.     MOVE.L    D1,D0
  1667.     SUBQ.L    #1,D0
  1668.     LSL.L    #8,D0
  1669.     LSL.L    #1,D0
  1670.     ADD.L    D0,A2
  1671.     MOVEQ    #$7F,D0
  1672. lbC0018C4    MOVE.L    (A2)+,(A1)+
  1673.     DBRA    D0,lbC0018C4
  1674.  
  1675.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1676.     SUB.L    #$204,A1
  1677.     MOVEQ    #-$1,D6
  1678.     MOVEQ    #-$1,D7
  1679.     MOVE.L    #$203,D2
  1680.     BSR    lbC001E0A
  1681.     MOVE.B    D6,(A1)+
  1682.     MOVE.B    D7,(A1)+
  1683.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1684.     ADDQ.L    #2,A1
  1685.     MOVEQ    #9,D0
  1686. lbC0018EE    MOVE.L    #$4E4E4E4E,(A1)+
  1687.     DBRA    D0,lbC0018EE
  1688.  
  1689.     ADDQ.L    #1,D1
  1690.     MOVEQ    #0,D2
  1691.     MOVE.W    $3FF32,D2
  1692.     ADDQ.L    #1,D2
  1693.     CMP.L    D2,D1
  1694.     BNE    lbC001860
  1695.     LEA    $39A04,A0
  1696. lbC001910    MOVE.L    #$4E4E4E4E,(A1)+
  1697.     CMP.L    A0,A1
  1698.     BLT    lbC001910
  1699.     LEA    $3B404,A1
  1700.     LEA    $39A04,A0
  1701.     LEA    lbW00226A,A2
  1702.     MOVE.L    #$19FF,D1
  1703. lbC001934    MOVEQ    #0,D0
  1704.     MOVE.B    -(A0),D0
  1705.     ADD.W    D0,D0
  1706.     MOVE.W    0(A2,D0.W),D0
  1707.     MOVE.W    D0,-(A1)
  1708.     DBRA    D1,lbC001934
  1709.  
  1710.     LEA    $38004,A0
  1711.     MOVE.L    #$3400,D6
  1712.     JSR    lbC001D4A
  1713.     LEA    $3807C,A0
  1714.     MOVEQ    #0,D0
  1715.     MOVE.W    $3FF32,D0
  1716.     SUBQ.L    #1,D0
  1717. lbC001966    ADD.L    #$18,A0
  1718.     MOVE.W    #$4489,(A0)+
  1719.     MOVE.W    #$4489,(A0)+
  1720.     MOVE.W    #$4489,(A0)+
  1721.     ADD.L    #$52,A0
  1722.     MOVE.W    #$4489,(A0)+
  1723.     MOVE.W    #$4489,(A0)+
  1724.     MOVE.W    #$4489,(A0)+
  1725.     ADD.L    #$456,A0
  1726.     DBRA    D0,lbC001966
  1727.  
  1728.     MOVE.L    $3FF2C,A0
  1729.     CLR.L    D0
  1730.     MOVE.W    $3FF2A,D0
  1731.     LSL.L    #8,D0
  1732.     LSL.L    #1,D0
  1733.     ADD.L    D0,A0
  1734.     BTST    #3,$BFE001
  1735.     BEQ    lbC001A1A
  1736.     MOVE.W    #2,_custom+intreq
  1737.     MOVE.L    #$38004,_custom+dskpth
  1738.     MOVE.W    #$7F00,_custom+adkcon
  1739.     MOVE.W    #$8100,_custom+adkcon
  1740.     MOVE.W    #$8210,_custom+dmacon
  1741.     MOVE.W    #$4000,_custom+dsklen
  1742.     BSR    lbC001C9C
  1743.     MOVE.W    #$D86A,_custom+dsklen
  1744.     MOVE.W    #$D86A,_custom+dsklen
  1745.     BSR    lbC001D20
  1746.     MOVE.W    #$4000,_custom+dsklen
  1747.     CLR.L    D0
  1748.     RTS
  1749.  
  1750. lbC001A0A    MOVE.L    D0,-(SP)
  1751.     MOVE.L    #15,D0
  1752.     BSR    lbC001C7A
  1753.     MOVE.L    (SP)+,D0
  1754.     RTS
  1755.  
  1756. lbC001A1A    MOVE.L    #$FFFFFFF3,D0
  1757.     MOVE.W    #$64,$3FF20
  1758.     BSR    lbC001422
  1759.     MOVE.W    $3FF1C,-(SP)
  1760.     MOVE.W    D0,-(SP)
  1761.     MOVE.L    $404.w,A0
  1762.     JSR    (A0)
  1763.     ADDQ.L    #4,SP
  1764.     MOVE.L    D0,-(SP)
  1765.     BSR    lbC00136E
  1766.     MOVE.L    (SP)+,D0
  1767.     CMP.L    #$10000,D0
  1768.     BNE    lbC001A50
  1769.     JMP    (A6)
  1770.  
  1771. lbC001A50    MOVE.W    #$FFFF,$73FF0
  1772.     MOVE.L    #$FFFFFFF3,D0
  1773.     RTS
  1774.  
  1775. lbC001A60    MOVE.L    #$FFFFFFEF,D0
  1776.     RTS
  1777.  
  1778. lbC001A68    LEA    lbC001A68(PC),A6
  1779.     LEA    $38004,A1
  1780.     MOVEQ    #14,D0
  1781. lbC001A74    MOVE.L    #$4E4E4E4E,(A1)+
  1782.     DBRA    D0,lbC001A74
  1783.  
  1784.     MOVEQ    #1,D1
  1785. lbC001A80    MOVEQ    #2,D0
  1786. lbC001A82    CLR.L    (A1)+
  1787.     DBRA    D0,lbC001A82
  1788.  
  1789.     MOVE.L    #$A1A1A1FE,(A1)+
  1790.     MOVE.B    $3FF27,(A1)+
  1791.     MOVE.B    $3FF25,(A1)+
  1792.     MOVE.B    D1,(A1)+
  1793.     MOVE.B    #2,(A1)+
  1794.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1795.     SUBQ.L    #8,A1
  1796.     MOVEQ    #-$1,D6
  1797.     MOVEQ    #-$1,D7
  1798.     MOVEQ    #7,D2
  1799.     BSR    lbC001E0A
  1800.     MOVE.B    D6,(A1)+
  1801.     MOVE.B    D7,(A1)+
  1802.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1803.     ADDQ.L    #2,A1
  1804.     MOVEQ    #10,D0
  1805. lbC001ABC    MOVE.W    #$4E4E,(A1)+
  1806.     DBRA    D0,lbC001ABC
  1807.  
  1808.     MOVEQ    #2,D0
  1809. lbC001AC6    CLR.L    (A1)+
  1810.     DBRA    D0,lbC001AC6
  1811.  
  1812.     MOVE.L    #$A1A1A1FB,(A1)+
  1813.     MOVE.L    #$FF,D0
  1814. lbC001AD8    MOVE.W    $3FF30,(A1)+
  1815.     DBRA    D0,lbC001AD8
  1816.  
  1817.     MOVEM.L    D2/D6/D7/A1,-(SP)
  1818.     SUB.L    #$204,A1
  1819.     MOVEQ    #-$1,D6
  1820.     MOVEQ    #-$1,D7
  1821.     MOVE.L    #$203,D2
  1822.     BSR    lbC001E0A
  1823.     MOVE.B    D6,(A1)+
  1824.     MOVE.B    D7,(A1)+
  1825.     MOVEM.L    (SP)+,D2/D6/D7/A1
  1826.     ADDQ.L    #2,A1
  1827.     MOVEQ    #9,D0
  1828. lbC001B06    MOVE.L    #$4E4E4E4E,(A1)+
  1829.     DBRA    D0,lbC001B06
  1830.  
  1831.     ADDQ.L    #1,D1
  1832.     MOVE.W    $3FF32,D2
  1833.     ADD.W    #1,D2
  1834.     CMP.B    D2,D1
  1835.     BNE    lbC001A80
  1836.     LEA    $39A04,A0
  1837. lbC001B28    MOVE.L    #$4E4E4E4E,(A1)+
  1838.     CMP.L    A0,A1
  1839.     BLT    lbC001B28
  1840.     LEA    $3B404,A1
  1841.     LEA    $39A04,A0
  1842.     LEA    lbW00226A,A2
  1843.     MOVE.L    #$19FF,D1
  1844. lbC001B4C    MOVEQ    #0,D0
  1845.     MOVE.B    -(A0),D0
  1846.     ADD.W    D0,D0
  1847.     MOVE.W    0(A2,D0.W),D0
  1848.     MOVE.W    D0,-(A1)
  1849.     DBRA    D1,lbC001B4C
  1850.  
  1851.     LEA    $38004,A0
  1852.     MOVE.L    #$3400,D6
  1853.     JSR    lbC001D4A
  1854.     LEA    $3807C,A0
  1855.     MOVEQ    #0,D0
  1856.     MOVE.W    $3FF32,D0
  1857.     SUBQ.L    #1,D0
  1858. lbC001B7E    ADD.L    #$18,A0
  1859.     MOVE.W    #$4489,(A0)+
  1860.     MOVE.W    #$4489,(A0)+
  1861.     MOVE.W    #$4489,(A0)+
  1862.     ADD.L    #$52,A0
  1863.     MOVE.W    #$4489,(A0)+
  1864.     MOVE.W    #$4489,(A0)+
  1865.     MOVE.W    #$4489,(A0)+
  1866.     ADD.L    #$456,A0
  1867.     DBRA    D0,lbC001B7E
  1868.  
  1869.     BSR    lbC001CCA
  1870.     MOVE.L    #$A88,D7
  1871.     BSR    lbC001CC0
  1872.     BTST    #2,$BFE001
  1873.     BEQ    lbC001A60
  1874.     BSET    #2,$BFD100
  1875.     TST.W    $3FF24
  1876.     BEQ.S    lbC001BDE
  1877.     BCLR    #2,$BFD100
  1878. lbC001BDE    BTST    #3,$BFE001
  1879.     BEQ    lbC001A1A
  1880.     MOVE.W    #2,_custom+intreq
  1881.     MOVE.L    #$38004,_custom+dskpth
  1882.     MOVE.W    #$7F00,_custom+adkcon
  1883.     MOVE.W    #$8100,_custom+adkcon
  1884.     MOVE.W    #$8210,_custom+dmacon
  1885.     MOVE.W    #$4000,_custom+dsklen
  1886.     BSR    lbC001C9C
  1887.     MOVE.W    #$D86A,_custom+dsklen
  1888.     MOVE.W    #$D86A,_custom+dsklen
  1889.     BSR    lbC001D20
  1890.     MOVE.W    #$4000,_custom+dsklen
  1891.     MOVE.W    $3FF22,D1
  1892.     MOVE.W    $73FF0,D0
  1893.     CMP.W    D0,D1
  1894.     BNE    lbC001C56
  1895.     MOVE.W    #$FFFF,$73FF0
  1896. lbC001C56    MOVEQ    #0,D0
  1897.     RTS
  1898.  
  1899. lbC001C5A    MOVE.L    D0,-(SP)
  1900.     MOVE.W    #$FFF,D0
  1901. lbC001C60    MOVE.W    _custom+vhposr,_custom+color2
  1902.     DBRA    D0,lbC001C60
  1903.  
  1904.     MOVE.W    #foreground,_custom+color2
  1905.     MOVE.L    (SP)+,D0
  1906.     RTS
  1907.  
  1908. lbC001C7A    MOVEM.L    D0/D1,-(SP)
  1909.     MOVE.L    #$7FFF,D1
  1910. lbC001C84    MOVE.W    D0,_custom+color0
  1911.     DBRA    D1,lbC001C84
  1912.  
  1913.     MOVE.W    #$666,_custom+color0
  1914.     MOVEM.L    (SP)+,D0/D1
  1915.     RTS
  1916.  
  1917. lbC001C9C    MOVE.B    #$20,$BFDD00
  1918.     BTST    #4,$BFDD00
  1919.     BNE.S    lbC001C9C
  1920.     MOVE.W    #$7D00,D0
  1921. lbC001CB2    BTST    #4,$BFDD00
  1922.     DBNE    D0,lbC001CB2
  1923.  
  1924.     RTS
  1925.  
  1926. lbC001CC0    SUB.L    #1,D7
  1927.     BNE.S    lbC001CC0
  1928.     RTS
  1929.  
  1930. lbC001CCA    MOVE.W    $3FF22,D0
  1931.     LEA    $3FF34,A0
  1932.     LEA    0(A0,D0.W),A0
  1933. lbC001CDA    MOVE.W    $3FF26,D1
  1934.     BSET    #1,$BFD100
  1935.     CMP.B    (A0),D1
  1936.     BEQ    lbC0014F0
  1937.     BLS.S    lbC001CFA
  1938.     BCLR    #1,$BFD100
  1939.     ADDQ.B    #2,(A0)
  1940. lbC001CFA    SUBQ.B    #1,(A0)
  1941.     BCLR    #0,$BFD100
  1942.     NOP
  1943.     NOP
  1944.     NOP
  1945.     NOP
  1946.     BSET    #0,$BFD100
  1947.     MOVE.L    #$A88,D7
  1948.     BSR    lbC001CC0
  1949.     BRA.S    lbC001CDA
  1950.  
  1951. lbC001D20    MOVE.L    #$7A120,D7
  1952. lbC001D26    MOVE.W    _custom+intreqr,D0
  1953.     BTST    #1,D0
  1954.     BNE.S    lbC001D3E
  1955.     SUBQ.L    #1,D7
  1956.     BNE.S    lbC001D26
  1957.     MOVE.L    #$FFFFFFFF,D0
  1958.     RTS
  1959.  
  1960. lbC001D3E    MOVE.W    #2,_custom+intreq
  1961.     MOVEQ    #0,D0
  1962.     RTS
  1963.  
  1964. lbC001D4A    MOVE.W    #$40,_custom+intreq
  1965.     MOVE.W    #$5555,_custom+bltcdat
  1966.     MOVE.L    A0,-(SP)
  1967.     ADD.L    #$40,D6
  1968.     AND.L    #$FFFFFFE0,D6
  1969.     ADD.L    D6,A0
  1970.     OR.W    #$20,D6
  1971.     SUBQ.L    #2,A0
  1972.     MOVE.L    A0,_custom+bltapth
  1973.     MOVE.W    #0,_custom+bltamod
  1974.     MOVE.W    #$FFFF,_custom+bltafwm
  1975.     MOVE.W    #$FFFF,_custom+bltalwm
  1976.     MOVE.L    A0,_custom+bltbpth
  1977.     MOVE.L    A0,_custom+bltdpth
  1978.     MOVE.W    #0,_custom+bltbmod
  1979.     MOVE.W    #0,_custom+bltdmod
  1980.     MOVE.W    #$1002,_custom+bltcon1
  1981.     MOVE.W    #$DB1,_custom+bltcon0
  1982.     MOVE.W    D6,_custom+bltsize
  1983.     BSR    lbC001DF4
  1984.     MOVE.L    (SP)+,A0
  1985.     MOVE.L    A0,_custom+bltapth
  1986.     MOVE.L    A0,_custom+bltbpth
  1987.     MOVE.L    A0,_custom+bltdpth
  1988.     MOVE.W    #0,_custom+bltcon1
  1989.     MOVE.W    #$1D8C,_custom+bltcon0
  1990.     MOVE.W    D6,_custom+bltsize
  1991.     BSR    lbC001DF4
  1992.     RTS
  1993.  
  1994. lbC001DF4    MOVE.W    _custom+intreqr,D3
  1995.     BTST    #6,D3
  1996.     BEQ.S    lbC001DF4
  1997.     MOVE.W    #$40,_custom+intreq
  1998.     RTS
  1999.  
  2000. lbC001E0A    MOVEM.L    D4/D5/A6,-(SP)
  2001.     LEA    lbW00246A,A6
  2002.     MOVE.L    A6,D4
  2003.     MOVEQ    #0,D5
  2004. lbC001E18    MOVE.B    (A1)+,D5
  2005.     MOVE.L    D4,A6
  2006.     EOR.B    D6,D5
  2007.     ADD.W    D5,A6
  2008.     MOVE.B    (A6),D6
  2009.     EOR.B    D7,D6
  2010.     MOVE.B    $100(A6),D7
  2011.     DBRA    D2,lbC001E18
  2012.  
  2013.     MOVEM.L    (SP)+,D4/D5/A6
  2014.     RTS
  2015.  
  2016. lbC001E32    MOVEM.L    D0-D3,-(SP)
  2017.     SUBQ.B    #1,lbB001EDE
  2018.     BNE    lbC001ED8
  2019.     MOVE.B    #$32,lbB001EDE
  2020.     MOVE.B    $7FC21,D0
  2021.     MOVE.B    $7FC23,D1
  2022.     BSR    lbC001EE0
  2023.     MOVE.B    D0,$7FC21
  2024.     MOVE.B    D1,$7FC23
  2025.     CMP.B    #$3C,D2
  2026.     BNE    lbC001ED8
  2027.     CLR.B    $7FC21
  2028.     CLR.B    $7FC23
  2029.     MOVE.B    $7FC25,D0
  2030.     MOVE.B    $7FC27,D1
  2031.     BSR    lbC001EE0
  2032.     MOVE.B    D0,$7FC25
  2033.     MOVE.B    D1,$7FC27
  2034.     CMP.B    #$3C,D2
  2035.     BNE    lbC001ED8
  2036.     CLR.B    $7FC25
  2037.     CLR.B    $7FC27
  2038.     MOVE.B    $7FC29,D0
  2039.     MOVE.B    $7FC2B,D1
  2040.     BSR    lbC001EE0
  2041.     MOVE.B    D0,$7FC29
  2042.     MOVE.B    D1,$7FC2B
  2043.     CMP.B    #$19,D2
  2044.     BNE    lbC001ED8
  2045.     CLR.B    $7FC29
  2046.     CLR.B    $7FC2B
  2047. lbC001ED8    MOVEM.L    (SP)+,D0-D3
  2048.     RTS
  2049.  
  2050. lbB001EDE    dc.b    $32
  2051.     dc.b    0
  2052.  
  2053. lbC001EE0    LSL.B    #4,D1
  2054.     OR.B    D1,D0
  2055.     ADDQ.B    #1,D0
  2056.     MOVE.B    D0,D1
  2057.     MOVE.B    D0,D2
  2058.     LSR.B    #4,D1
  2059.     AND.B    #15,D0
  2060.     RTS
  2061.  
  2062. GETTIME    MOVEQ    #0,D0
  2063.     MOVEQ    #0,D1
  2064.     MOVEQ    #0,D2
  2065.     MOVE.B    $7FC2F,D1
  2066.     MOVE.B    $7FC31,D2
  2067.     LSL.B    #4,D2
  2068.     OR.B    D2,D1
  2069.     AND.L    #$1F,D1
  2070.     OR.W    D1,D0
  2071.     MOVE.B    $7FC33,D1
  2072.     MOVE.B    $7FC35,D2
  2073.     LSL.B    #4,D2
  2074.     OR.B    D2,D1
  2075.     AND.L    #15,D1
  2076.     LSL.L    #5,D1
  2077.     OR.W    D1,D0
  2078.     MOVE.B    $7FC37,D1
  2079.     MOVE.B    $7FC39,D2
  2080.     LSL.B    #4,D2
  2081.     OR.B    D2,D1
  2082.     AND.L    #$7F,D1
  2083.     LSL.L    #8,D1
  2084.     LSL.L    #1,D1
  2085.     OR.W    D1,D0
  2086.     SWAP    D0
  2087.     MOVE.B    $7FC21,D1
  2088.     MOVE.B    $7FC23,D2
  2089.     LSL.B    #4,D2
  2090.     OR.B    D2,D1
  2091.     LSR.B    #1,D1
  2092.     AND.L    #$1F,D1
  2093.     OR.W    D1,D0
  2094.     MOVE.B    $7FC25,D1
  2095.     MOVE.B    $7FC27,D2
  2096.     LSL.B    #4,D2
  2097.     OR.B    D2,D1
  2098.     AND.L    #$3F,D1
  2099.     LSL.L    #5,D1
  2100.     OR.W    D1,D0
  2101.     MOVE.B    $7FC29,D1
  2102.     MOVE.B    $7FC2B,D2
  2103.     LSL.B    #4,D2
  2104.     OR.B    D2,D1
  2105.     AND.L    #$1F,D1
  2106.     LSL.L    #8,D1
  2107.     LSL.L    #3,D1
  2108.     OR.W    D1,D0
  2109.     MOVEQ    #0,D1
  2110.     MOVEQ    #0,D2
  2111.     RTS
  2112.  
  2113. SETTIME    MOVE.L    4(SP),D0
  2114.     CMP.W    #2,D0
  2115.     BGE    lbC001FAE
  2116.     BRA    lbC002014
  2117.  
  2118. lbC001FAE    MOVE.L    D0,D1
  2119.     AND.L    #$1F,D1
  2120.     MOVE.L    D1,D2
  2121.     LSR.B    #4,D2
  2122.     AND.B    #15,D1
  2123.     AND.B    #15,D2
  2124.     MOVE.B    D1,$7FC21
  2125.     MOVE.B    D2,$7FC23
  2126.     MOVE.L    D0,D1
  2127.     LSR.L    #5,D1
  2128.     AND.L    #$3F,D1
  2129.     MOVE.L    D1,D2
  2130.     LSR.B    #4,D2
  2131.     AND.B    #15,D1
  2132.     AND.B    #15,D2
  2133.     MOVE.B    D1,$7FC25
  2134.     MOVE.B    D2,$7FC27
  2135.     MOVE.L    D0,D1
  2136.     LSR.L    #8,D1
  2137.     LSR.L    #3,D1
  2138.     AND.L    #$1F,D1
  2139.     MOVE.L    D1,D2
  2140.     LSR.B    #4,D2
  2141.     AND.B    #15,D1
  2142.     AND.B    #15,D2
  2143.     MOVE.B    D1,$7FC29
  2144.     MOVE.B    D2,$7FC2B
  2145. lbC002014    SWAP    D0
  2146.     MOVE.W    D0,D1
  2147.     AND.L    #$1F,D1
  2148.     MOVE.L    D1,D2
  2149.     LSR.B    #4,D2
  2150.     MOVE.B    D1,$7FC2F
  2151.     MOVE.B    D2,$7FC31
  2152.     MOVE.L    D0,D1
  2153.     LSR.L    #5,D1
  2154.     AND.L    #15,D1
  2155.     MOVE.L    D1,D2
  2156.     LSR.B    #4,D2
  2157.     MOVE.B    D1,$7FC33
  2158.     MOVE.B    D2,$7FC35
  2159.     MOVE.L    D0,D1
  2160.     LSR.L    #8,D1
  2161.     LSR.L    #1,D1
  2162.     AND.L    #$7F,D1
  2163.     MOVE.L    D1,D2
  2164.     LSR.B    #4,D2
  2165.     MOVE.B    D1,$7FC37
  2166.     MOVE.B    D2,$7FC39
  2167.     MOVEQ    #0,D1
  2168.     MOVEQ    #0,D2
  2169.     RTS
  2170.  
  2171. lbL00206A    dc.l    $100010
  2172.     dc.l    $20302030
  2173.     dc.l    $100010
  2174.     dc.l    $20302030
  2175.     dc.l    $40504050
  2176.     dc.l    $60706070
  2177.     dc.l    $40504050
  2178.     dc.l    $60706070
  2179.     dc.l    $100010
  2180.     dc.l    $20302030
  2181.     dc.l    $100010
  2182.     dc.l    $20302030
  2183.     dc.l    $40504050
  2184.     dc.l    $60706070
  2185.     dc.l    $40504050
  2186.     dc.l    $60706070
  2187.     dc.l    $80908090
  2188.     dc.l    $A0B0A0B0
  2189.     dc.l    $80908090
  2190.     dc.l    $A0B0A0B0
  2191.     dc.l    $C0D0C0D0
  2192.     dc.l    $E0F0E0F0
  2193.     dc.l    $C0D0C0D0
  2194.     dc.l    $E0F0E0F0
  2195.     dc.l    $80908090
  2196.     dc.l    $A0B0A0B0
  2197.     dc.l    $80908090
  2198.     dc.l    $A0B0A0B0
  2199.     dc.l    $C0D0C0D0
  2200.     dc.l    $E0F0E0F0
  2201.     dc.l    $C0D0C0D0
  2202.     dc.l    $E0F0E0F0
  2203.     dc.l    $100010
  2204.     dc.l    $20302030
  2205.     dc.l    $100010
  2206.     dc.l    $20302030
  2207.     dc.l    $40504050
  2208.     dc.l    $60706070
  2209.     dc.l    $40504050
  2210.     dc.l    $60706070
  2211.     dc.l    $100010
  2212.     dc.l    $20302030
  2213.     dc.l    $100010
  2214.     dc.l    $20302030
  2215.     dc.l    $40504050
  2216.     dc.l    $60706070
  2217.     dc.l    $40504050
  2218.     dc.l    $60706070
  2219.     dc.l    $80908090
  2220.     dc.l    $A0B0A0B0
  2221.     dc.l    $80908090
  2222.     dc.l    $A0B0A0B0
  2223.     dc.l    $C0D0C0D0
  2224.     dc.l    $E0F0E0F0
  2225.     dc.l    $C0D0C0D0
  2226.     dc.l    $E0F0E0F0
  2227.     dc.l    $80908090
  2228.     dc.l    $A0B0A0B0
  2229.     dc.l    $80908090
  2230.     dc.l    $A0B0A0B0
  2231.     dc.l    $C0D0C0D0
  2232.     dc.l    $E0F0E0F0
  2233.     dc.l    $C0D0C0D0
  2234.     dc.l    $E0F0E0F0
  2235. lbW00216A    dcb.w    2,1
  2236.     dcb.w    2,$203
  2237.     dcb.w    2,1
  2238.     dcb.w    2,$203
  2239.     dcb.w    2,$405
  2240.     dcb.w    2,$607
  2241.     dcb.w    2,$405
  2242.     dcb.w    2,$607
  2243.     dcb.w    2,1
  2244.     dcb.w    2,$203
  2245.     dcb.w    2,1
  2246.     dcb.w    2,$203
  2247.     dcb.w    2,$405
  2248.     dcb.w    2,$607
  2249.     dcb.w    2,$405
  2250.     dcb.w    2,$607
  2251.     dcb.w    2,$809
  2252.     dcb.w    2,$A0B
  2253.     dcb.w    2,$809
  2254.     dcb.w    2,$A0B
  2255.     dcb.w    2,$C0D
  2256.     dcb.w    2,$E0F
  2257.     dcb.w    2,$C0D
  2258.     dcb.w    2,$E0F
  2259.     dcb.w    2,$809
  2260.     dcb.w    2,$A0B
  2261.     dcb.w    2,$809
  2262.     dcb.w    2,$A0B
  2263.     dcb.w    2,$C0D
  2264.     dcb.w    2,$E0F
  2265.     dcb.w    2,$C0D
  2266.     dcb.w    2,$E0F
  2267.     dcb.w    2,1
  2268.     dcb.w    2,$203
  2269.     dcb.w    2,1
  2270.     dcb.w    2,$203
  2271.     dcb.w    2,$405
  2272.     dcb.w    2,$607
  2273.     dcb.w    2,$405
  2274.     dcb.w    2,$607
  2275.     dcb.w    2,1
  2276.     dcb.w    2,$203
  2277.     dcb.w    2,1
  2278.     dcb.w    2,$203
  2279.     dcb.w    2,$405
  2280.     dcb.w    2,$607
  2281.     dcb.w    2,$405
  2282.     dcb.w    2,$607
  2283.     dcb.w    2,$809
  2284.     dcb.w    2,$A0B
  2285.     dcb.w    2,$809
  2286.     dcb.w    2,$A0B
  2287.     dcb.w    2,$C0D
  2288.     dcb.w    2,$E0F
  2289.     dcb.w    2,$C0D
  2290.     dcb.w    2,$E0F
  2291.     dcb.w    2,$809
  2292.     dcb.w    2,$A0B
  2293.     dcb.w    2,$809
  2294.     dcb.w    2,$A0B
  2295.     dcb.w    2,$C0D
  2296.     dcb.w    2,$E0F
  2297.     dcb.w    2,$C0D
  2298.     dcb.w    2,$E0F
  2299. lbW00226A    dc.w    0
  2300.     dc.w    1
  2301.     dc.w    4
  2302.     dc.w    5
  2303.     dc.w    $10
  2304.     dc.w    $11
  2305.     dc.w    $14
  2306.     dc.w    $15
  2307.     dc.w    $40
  2308.     dc.w    $41
  2309.     dc.w    $44
  2310.     dc.w    $45
  2311.     dc.w    $50
  2312.     dc.w    $51
  2313.     dc.w    $54
  2314.     dc.w    $55
  2315.     dc.w    $100
  2316.     dc.w    $101
  2317.     dc.w    $104
  2318.     dc.w    $105
  2319.     dc.w    $110
  2320.     dc.w    $111
  2321.     dc.w    $114
  2322.     dc.w    $115
  2323.     dc.w    $140
  2324.     dc.w    $141
  2325.     dc.w    $144
  2326.     dc.w    $145
  2327.     dc.w    $150
  2328.     dc.w    $151
  2329.     dc.w    $154
  2330.     dc.w    $155
  2331.     dc.w    $400
  2332.     dc.w    $401
  2333.     dc.w    $404
  2334.     dc.w    $405
  2335.     dc.w    $410
  2336.     dc.w    $411
  2337.     dc.w    $414
  2338.     dc.w    $415
  2339.     dc.w    $440
  2340.     dc.w    $441
  2341.     dc.w    $444
  2342.     dc.w    $445
  2343.     dc.w    $450
  2344.     dc.w    $451
  2345.     dc.w    $454
  2346.     dc.w    $455
  2347.     dc.w    $500
  2348.     dc.w    $501
  2349.     dc.w    $504
  2350.     dc.w    $505
  2351.     dc.w    $510
  2352.     dc.w    $511
  2353.     dc.w    $514
  2354.     dc.w    $515
  2355.     dc.w    $540
  2356.     dc.w    $541
  2357.     dc.w    $544
  2358.     dc.w    $545
  2359.     dc.w    $550
  2360.     dc.w    $551
  2361.     dc.w    $554
  2362.     dc.w    $555
  2363.     dc.w    $1000
  2364.     dc.w    $1001
  2365.     dc.w    $1004
  2366.     dc.w    $1005
  2367.     dc.w    $1010
  2368.     dc.w    $1011
  2369.     dc.w    $1014
  2370.     dc.w    $1015
  2371.     dc.w    $1040
  2372.     dc.w    $1041
  2373.     dc.w    $1044
  2374.     dc.w    $1045
  2375.     dc.w    $1050
  2376.     dc.w    $1051
  2377.     dc.w    $1054
  2378.     dc.w    $1055
  2379.     dc.w    $1100
  2380.     dc.w    $1101
  2381.     dc.w    $1104
  2382.     dc.w    $1105
  2383.     dc.w    $1110
  2384.     dc.w    $1111
  2385.     dc.w    $1114
  2386.     dc.w    $1115
  2387.     dc.w    $1140
  2388.     dc.w    $1141
  2389.     dc.w    $1144
  2390.     dc.w    $1145
  2391.     dc.w    $1150
  2392.     dc.w    $1151
  2393.     dc.w    $1154
  2394.     dc.w    $1155
  2395.     dc.w    $1400
  2396.     dc.w    $1401
  2397.     dc.w    $1404
  2398.     dc.w    $1405
  2399.     dc.w    $1410
  2400.     dc.w    $1411
  2401.     dc.w    $1414
  2402.     dc.w    $1415
  2403.     dc.w    $1440
  2404.     dc.w    $1441
  2405.     dc.w    $1444
  2406.     dc.w    $1445
  2407.     dc.w    $1450
  2408.     dc.w    $1451
  2409.     dc.w    $1454
  2410.     dc.w    $1455
  2411.     dc.w    $1500
  2412.     dc.w    $1501
  2413.     dc.w    $1504
  2414.     dc.w    $1505
  2415.     dc.w    $1510
  2416.     dc.w    $1511
  2417.     dc.w    $1514
  2418.     dc.w    $1515
  2419.     dc.w    $1540
  2420.     dc.w    $1541
  2421.     dc.w    $1544
  2422.     dc.w    $1545
  2423.     dc.w    $1550
  2424.     dc.w    $1551
  2425.     dc.w    $1554
  2426.     dc.w    $1555
  2427.     dc.w    $4000
  2428.     dc.w    $4001
  2429.     dc.w    $4004
  2430.     dc.w    $4005
  2431.     dc.w    $4010
  2432.     dc.w    $4011
  2433.     dc.w    $4014
  2434.     dc.w    $4015
  2435.     dc.w    $4040
  2436.     dc.w    $4041
  2437.     dc.w    $4044
  2438.     dc.w    $4045
  2439.     dc.w    $4050
  2440.     dc.w    $4051
  2441.     dc.w    $4054
  2442.     dc.w    $4055
  2443.     dc.w    $4100
  2444.     dc.w    $4101
  2445.     dc.w    $4104
  2446.     dc.w    $4105
  2447.     dc.w    $4110
  2448.     dc.w    $4111
  2449.     dc.w    $4114
  2450.     dc.w    $4115
  2451.     dc.w    $4140
  2452.     dc.w    $4141
  2453.     dc.w    $4144
  2454.     dc.w    $4145
  2455.     dc.w    $4150
  2456.     dc.w    $4151
  2457.     dc.w    $4154
  2458.     dc.w    $4155
  2459.     dc.w    $4400
  2460.     dc.w    $4401
  2461.     dc.w    $4404
  2462.     dc.w    $4405
  2463.     dc.w    $4410
  2464.     dc.w    $4411
  2465.     dc.w    $4414
  2466.     dc.w    $4415
  2467.     dc.w    $4440
  2468.     dc.w    $4441
  2469.     dc.w    $4444
  2470.     dc.w    $4445
  2471.     dc.w    $4450
  2472.     dc.w    $4451
  2473.     dc.w    $4454
  2474.     dc.w    $4455
  2475.     dc.w    $4500
  2476.     dc.w    $4501
  2477.     dc.w    $4504
  2478.     dc.w    $4505
  2479.     dc.w    $4510
  2480.     dc.w    $4511
  2481.     dc.w    $4514
  2482.     dc.w    $4515
  2483.     dc.w    $4540
  2484.     dc.w    $4541
  2485.     dc.w    $4544
  2486.     dc.w    $4545
  2487.     dc.w    $4550
  2488.     dc.w    $4551
  2489.     dc.w    $4554
  2490.     dc.w    $4555
  2491.     dc.w    $5000
  2492.     dc.w    $5001
  2493.     dc.w    $5004
  2494.     dc.w    $5005
  2495.     dc.w    $5010
  2496.     dc.w    $5011
  2497.     dc.w    $5014
  2498.     dc.w    $5015
  2499.     dc.w    $5040
  2500.     dc.w    $5041
  2501.     dc.w    $5044
  2502.     dc.w    $5045
  2503.     dc.w    $5050
  2504.     dc.w    $5051
  2505.     dc.w    $5054
  2506.     dc.w    $5055
  2507.     dc.w    $5100
  2508.     dc.w    $5101
  2509.     dc.w    $5104
  2510.     dc.w    $5105
  2511.     dc.w    $5110
  2512.     dc.w    $5111
  2513.     dc.w    $5114
  2514.     dc.w    $5115
  2515.     dc.w    $5140
  2516.     dc.w    $5141
  2517.     dc.w    $5144
  2518.     dc.w    $5145
  2519.     dc.w    $5150
  2520.     dc.w    $5151
  2521.     dc.w    $5154
  2522.     dc.w    $5155
  2523.     dc.w    $5400
  2524.     dc.w    $5401
  2525.     dc.w    $5404
  2526.     dc.w    $5405
  2527.     dc.w    $5410
  2528.     dc.w    $5411
  2529.     dc.w    $5414
  2530.     dc.w    $5415
  2531.     dc.w    $5440
  2532.     dc.w    $5441
  2533.     dc.w    $5444
  2534.     dc.w    $5445
  2535.     dc.w    $5450
  2536.     dc.w    $5451
  2537.     dc.w    $5454
  2538.     dc.w    $5455
  2539.     dc.w    $5500
  2540.     dc.w    $5501
  2541.     dc.w    $5504
  2542.     dc.w    $5505
  2543.     dc.w    $5510
  2544.     dc.w    $5511
  2545.     dc.w    $5514
  2546.     dc.w    $5515
  2547.     dc.w    $5540
  2548.     dc.w    $5541
  2549.     dc.w    $5544
  2550.     dc.w    $5545
  2551.     dc.w    $5550
  2552.     dc.w    $5551
  2553.     dc.w    $5554
  2554.     dc.w    $5555
  2555. lbW00246A    dc.w    $10
  2556.     dc.w    $2030
  2557.     dc.w    $4050
  2558.     dc.w    $6070
  2559.     dc.w    $8191
  2560.     dc.w    $A1B1
  2561.     dc.w    $C1D1
  2562.     dc.w    $E1F1
  2563.     dc.w    $1202
  2564.     dc.w    $3222
  2565.     dc.w    $5242
  2566.     dc.w    $7262
  2567.     dc.w    $9383
  2568.     dc.w    $B3A3
  2569.     dc.w    $D3C3
  2570.     dc.w    $F3E3
  2571.     dc.w    $2434
  2572.     dc.w    $414
  2573.     dc.w    $6474
  2574.     dc.w    $4454
  2575.     dc.w    $A5B5
  2576.     dc.w    $8595
  2577.     dc.w    $E5F5
  2578.     dc.w    $C5D5
  2579.     dc.w    $3626
  2580.     dc.w    $1606
  2581.     dc.w    $7666
  2582.     dc.w    $5646
  2583.     dc.w    $B7A7
  2584.     dc.w    $9787
  2585.     dc.w    $F7E7
  2586.     dc.w    $D7C7
  2587.     dc.w    $4858
  2588.     dc.w    $6878
  2589.     dc.w    $818
  2590.     dc.w    $2838
  2591.     dc.w    $C9D9
  2592.     dc.w    $E9F9
  2593.     dc.w    $8999
  2594.     dc.w    $A9B9
  2595.     dc.w    $5A4A
  2596.     dc.w    $7A6A
  2597.     dc.w    $1A0A
  2598.     dc.w    $3A2A
  2599.     dc.w    $DBCB
  2600.     dc.w    $FBEB
  2601.     dc.w    $9B8B
  2602.     dc.w    $BBAB
  2603.     dc.w    $6C7C
  2604.     dc.w    $4C5C
  2605.     dc.w    $2C3C
  2606.     dc.w    $C1C
  2607.     dc.w    $EDFD
  2608.     dc.w    $CDDD
  2609.     dc.w    $ADBD
  2610.     dc.w    $8D9D
  2611.     dc.w    $7E6E
  2612.     dc.w    $5E4E
  2613.     dc.w    $3E2E
  2614.     dc.w    $1E0E
  2615.     dc.w    $FFEF
  2616.     dc.w    $DFCF
  2617.     dc.w    $BFAF
  2618.     dc.w    $9F8F
  2619.     dc.w    $9181
  2620.     dc.w    $B1A1
  2621.     dc.w    $D1C1
  2622.     dc.w    $F1E1
  2623.     dc.w    $1000
  2624.     dc.w    $3020
  2625.     dc.w    $5040
  2626.     dc.w    $7060
  2627.     dc.w    $8393
  2628.     dc.w    $A3B3
  2629.     dc.w    $C3D3
  2630.     dc.w    $E3F3
  2631.     dc.w    $212
  2632.     dc.w    $2232
  2633.     dc.w    $4252
  2634.     dc.w    $6272
  2635.     dc.w    $B5A5
  2636.     dc.w    $9585
  2637.     dc.w    $F5E5
  2638.     dc.w    $D5C5
  2639.     dc.w    $3424
  2640.     dc.w    $1404
  2641.     dc.w    $7464
  2642.     dc.w    $5444
  2643.     dc.w    $A7B7
  2644.     dc.w    $8797
  2645.     dc.w    $E7F7
  2646.     dc.w    $C7D7
  2647.     dc.w    $2636
  2648.     dc.w    $616
  2649.     dc.w    $6676
  2650.     dc.w    $4656
  2651.     dc.w    $D9C9
  2652.     dc.w    $F9E9
  2653.     dc.w    $9989
  2654.     dc.w    $B9A9
  2655.     dc.w    $5848
  2656.     dc.w    $7868
  2657.     dc.w    $1808
  2658.     dc.w    $3828
  2659.     dc.w    $CBDB
  2660.     dc.w    $EBFB
  2661.     dc.w    $8B9B
  2662.     dc.w    $ABBB
  2663.     dc.w    $4A5A
  2664.     dc.w    $6A7A
  2665.     dc.w    $A1A
  2666.     dc.w    $2A3A
  2667.     dc.w    $FDED
  2668.     dc.w    $DDCD
  2669.     dc.w    $BDAD
  2670.     dc.w    $9D8D
  2671.     dc.w    $7C6C
  2672.     dc.w    $5C4C
  2673.     dc.w    $3C2C
  2674.     dc.w    $1C0C
  2675.     dc.w    $EFFF
  2676.     dc.w    $CFDF
  2677.     dc.w    $AFBF
  2678.     dc.w    $8F9F
  2679.     dc.w    $6E7E
  2680.     dc.w    $4E5E
  2681.     dc.w    $2E3E
  2682.     dc.w    $E1E
  2683.     dc.w    $21
  2684.     dc.w    $4263
  2685.     dc.w    $84A5
  2686.     dc.w    $C6E7
  2687.     dc.w    $829
  2688.     dc.w    $4A6B
  2689.     dc.w    $8CAD
  2690.     dc.w    $CEEF
  2691.     dc.w    $3110
  2692.     dc.w    $7352
  2693.     dc.w    $B594
  2694.     dc.w    $F7D6
  2695.     dc.w    $3918
  2696.     dc.w    $7B5A
  2697.     dc.w    $BD9C
  2698.     dc.w    $FFDE
  2699.     dc.w    $6243
  2700.     dc.w    $2001
  2701.     dc.w    $E6C7
  2702.     dc.w    $A485
  2703.     dc.w    $6A4B
  2704.     dc.w    $2809
  2705.     dc.w    $EECF
  2706.     dc.w    $AC8D
  2707.     dc.w    $5372
  2708.     dc.w    $1130
  2709.     dc.w    $D7F6
  2710.     dc.w    $95B4
  2711.     dc.w    $5B7A
  2712.     dc.w    $1938
  2713.     dc.w    $DFFE
  2714.     dc.w    $9DBC
  2715.     dc.w    $C4E5
  2716.     dc.w    $86A7
  2717.     dc.w    $4061
  2718.     dc.w    $223
  2719.     dc.w    $CCED
  2720.     dc.w    $8EAF
  2721.     dc.w    $4869
  2722.     dc.w    $A2B
  2723.     dc.w    $F5D4
  2724.     dc.w    $B796
  2725.     dc.w    $7150
  2726.     dc.w    $3312
  2727.     dc.w    $FDDC
  2728.     dc.w    $BF9E
  2729.     dc.w    $7958
  2730.     dc.w    $3B1A
  2731.     dc.w    $A687
  2732.     dc.w    $E4C5
  2733.     dc.w    $2203
  2734.     dc.w    $6041
  2735.     dc.w    $AE8F
  2736.     dc.w    $ECCD
  2737.     dc.w    $2A0B
  2738.     dc.w    $6849
  2739.     dc.w    $97B6
  2740.     dc.w    $D5F4
  2741.     dc.w    $1332
  2742.     dc.w    $5170
  2743.     dc.w    $9FBE
  2744.     dc.w    $DDFC
  2745.     dc.w    $1B3A
  2746.     dc.w    $5978
  2747.     dc.w    $88A9
  2748.     dc.w    $CAEB
  2749.     dc.w    $C2D
  2750.     dc.w    $4E6F
  2751.     dc.w    $80A1
  2752.     dc.w    $C2E3
  2753.     dc.w    $425
  2754.     dc.w    $4667
  2755.     dc.w    $B998
  2756.     dc.w    $FBDA
  2757.     dc.w    $3D1C
  2758.     dc.w    $7F5E
  2759.     dc.w    $B190
  2760.     dc.w    $F3D2
  2761.     dc.w    $3514
  2762.     dc.w    $7756
  2763.     dc.w    $EACB
  2764.     dc.w    $A889
  2765.     dc.w    $6E4F
  2766.     dc.w    $2C0D
  2767.     dc.w    $E2C3
  2768.     dc.w    $A081
  2769.     dc.w    $6647
  2770.     dc.w    $2405
  2771.     dc.w    $DBFA
  2772.     dc.w    $99B8
  2773.     dc.w    $5F7E
  2774.     dc.w    $1D3C
  2775.     dc.w    $D3F2
  2776.     dc.w    $91B0
  2777.     dc.w    $5776
  2778.     dc.w    $1534
  2779.     dc.l    $4C6D0E2F
  2780.     dc.l    $C8E98AAB
  2781.     dc.l    $44650627
  2782.     dc.l    $C0E182A3
  2783.     dc.l    $7D5C3F1E
  2784.     dc.l    $F9D8BB9A
  2785.     dc.l    $75543716
  2786.     dc.l    $F1D0B392
  2787.     dc.l    $2E0F6C4D
  2788.     dc.l    $AA8BE8C9
  2789.     dc.l    $26076445
  2790.     dc.l    $A283E0C1
  2791.     dc.l    $1F3E5D7C
  2792.     dc.l    $9BBAD9F8
  2793.     dc.l    $17365574
  2794.     dc.l    $93B2D1F0
  2795.     dc.l    $1234
  2796.     dc.l    $56780000
  2797.     dcb.l    $40,0
  2798.     dcb.l    $40,0
  2799.     dcb.l    $40,0
  2800.     dcb.l    $40,0
  2801.     dcb.l    $40,0
  2802.     dcb.l    $23,0
  2803.     dcb.b    3,0
  2804.